steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

modern.out: fix pixel word and arity of QUALIFIED:

locals-and-roots
Doug Coleman 2016-06-27 21:25:02 -07:00
parent 700746e346
commit 6903949936
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
core/modern/out/out.factor
View File

@ -58,10 +58,10 @@ CONSTANT: janky-arities H{
`VECTORED-STRUCT 1 -- `VECTORED-STRUCT 1 --
`IMPORT 1 -- `IMPORT 1 --
`GIR 1 -- `GIR 1 --
`PIXEL-FORMAT-ATTRIBUTE-TABLE 1 --
`TEST 1 -- `TEST 1 --
`SELECTOR 1 -- `SELECTOR 1 --
`SIMD-128 1 -- `SIMD-128 1 --
`QUALIFIED 1 --
`ALIAS 2 -- `ALIAS 2 --
`ARITY 2 -- `ARITY 2 --
@ -70,10 +70,11 @@ CONSTANT: janky-arities H{
`INSTANCE 2 -- `INSTANCE 2 --
`GENERIC 2 -- `GENERIC 2 --
`PRIMITIVE 2 -- `PRIMITIVE 2 --
`QUALIFIED 2 --
`GENERIC# 3 -- `GENERIC# 3 --
`PIXEL-FORMAT-ATTRIBUTE-TABLE 3 --
`HOOK 3 `HOOK 3
} ; } ;
GENERIC: write-literal ( obj -- ) ; GENERIC: write-literal ( obj -- ) ;
@ -288,7 +289,7 @@ M: object fixup-arity ;
[ _ map-literals ] map [ _ map-literals ] map
[ fixup-arity ] map [ fixup-arity ] map
] [ ] bi write-modern-path ] ] [ ] bi write-modern-path ]
[ drop . ] recover ; inline [ B drop . ] recover ; inline
: rewrite-string ( string quot -- ) : rewrite-string ( string quot -- )
! dup print ! dup print