17 lines
365 B
Factor
17 lines
365 B
Factor
|
IN: scratchpad
|
||
|
|
USE: interpreter
|
||
|
|
USE: namespaces
|
||
|
|
USE: stdio
|
||
|
|
USE: test
|
||
|
|
|
||
|
|
[
|
||
|
|
init-history
|
||
|
|
"2 2 +" history+
|
||
|
|
history.
|
||
|
|
[ "2 2 +" ] [ 0 get-history ] unit-test
|
||
|
|
[ 4 ] [ 0 redo ] unit-test
|
||
|
|
[ 4 ] [ "2 2 +" eval-catch ] unit-test
|
||
|
|
"The following will print an error; ignore it." print terpri
|
||
|
|
[ ] [ "clear drop" eval-catch ] unit-test
|
||
|
|
] with-scope
|