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

new accessors

db4
Doug Coleman 2008-08-29 15:51:52 -05:00
parent 57d2e5d8a8
commit 235cf7e1b8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/compiler/generator/fixup/fixup.factor
View File

@ -29,7 +29,7 @@ TUPLE: label offset ;
: <label> ( -- label ) label new ; : <label> ( -- label ) label new ;
M: label fixup* M: label fixup*
compiled-offset swap set-label-offset ; compiled-offset >>offset drop ;
: define-label ( name -- ) <label> swap set ; : define-label ( name -- ) <label> swap set ;
@ -138,7 +138,7 @@ SYMBOL: literal-table
: resolve-labels ( labels -- labels' ) : resolve-labels ( labels -- labels' )
[ [
first3 label-offset first3 offset>>
[ "Unresolved label" throw ] unless* [ "Unresolved label" throw ] unless*
3array 3array
] map concat ; ] map concat ;