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

View File

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