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

Fix interpreter unit tests

slava 2006-08-01 01:00:07 +00:00
parent 7bad3a77fa
commit f6facbb47f
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/test/interpreter.factor
View File

@ -2,9 +2,7 @@ IN: temporary
USING: errors interpreter io kernel math math-internals USING: errors interpreter io kernel math math-internals
namespaces prettyprint sequences test ; namespaces prettyprint sequences test ;
: done-all? ( -- ? ) done? meta-c get empty? and ; : run ( -- ) done? [ step-in run ] unless ;
: run ( -- ) done-all? [ next do run ] unless ;
: init-interpreter ( -- ) : init-interpreter ( -- )
V{ } clone meta-d set V{ } clone meta-d set

2
library/tools/interpreter.factor
View File

@ -50,7 +50,7 @@ SYMBOL: callframe-end
: (next) : (next)
callframe-scan get callframe get nth callframe-scan inc ; callframe-scan get callframe get nth callframe-scan inc ;
: next ( quot -- obj ) : next ( quot -- )
{ {
{ [ done? ] [ drop [ ] (meta-call) ] } { [ done? ] [ drop [ ] (meta-call) ] }
{ [ done-cf? ] [ drop up ] } { [ done-cf? ] [ drop up ] }