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

new accessors

db4
Doug Coleman 2008-08-29 10:26:53 -05:00
parent c1bd4a7cdd
commit eb5e72c7d3
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/tools/annotations/annotations.factor
View File

@ -31,7 +31,7 @@ M: word reset
: word-inputs ( word -- seq ) : word-inputs ( word -- seq )
stack-effect [ stack-effect [
>r datastack r> effect-in length tail* >r datastack r> in>> length tail*
] [ ] [
datastack datastack
] if* ; ] if* ;
@ -44,7 +44,7 @@ M: word reset
: leaving ( str -- ) : leaving ( str -- )
"/-- Leaving: " write dup . "/-- Leaving: " write dup .
stack-effect [ stack-effect [
>r datastack r> effect-out length tail* stack. >r datastack r> out>> length tail* stack.
] [ ] [
.s .s
] if* "\\--" print flush ; ] if* "\\--" print flush ;