core: I messed up the refactoring. with-scope should go away, but so should with-variables with an empty hashtable too.
parent
3fda77dbe8
commit
b0fe6631c7
|
@ -16,9 +16,10 @@ IN: continuations.tests
|
|||
: callcc-namespace-test ( -- ? )
|
||||
[
|
||||
"test-cc" set
|
||||
5 "x" [
|
||||
5 "x" set
|
||||
H{ } clone [
|
||||
6 "x" set "test-cc" get continue
|
||||
] with-variable
|
||||
] with-variables
|
||||
] callcc0 "x" get 5 = ;
|
||||
|
||||
{ t } [ 10 callcc1-test 10 iota reverse >vector = ] unit-test
|
||||
|
|
|
@ -68,11 +68,11 @@ SYMBOL: current-source-file
|
|||
|
||||
: with-source-file ( name quot -- )
|
||||
! Should be called from inside with-compilation-unit.
|
||||
H{ } clone source-files [
|
||||
H{ } clone [
|
||||
[
|
||||
path>source-file
|
||||
[ current-source-file set ]
|
||||
[ definitions>> old-definitions set ] bi
|
||||
] dip
|
||||
[ wrap-source-file-error ] recover
|
||||
] with-variable ; inline
|
||||
] with-variables ; inline
|
||||
|
|
Loading…
Reference in New Issue