16 lines
299 B
Text
16 lines
299 B
Text
|
## s:(evaluate)
|
||
|
|
|
||
|
|
Show string being evaluated
|
||
|
|
|
||
|
|
~~~
|
||
|
|
:s:() (s-) nl '(_ s:prepend '_) s:append s:put nl ;
|
||
|
|
:s:(evaluate) (s-) dup s:() s:evaluate nl ;
|
||
|
|
~~~
|
||
|
|
|
||
|
|
```
|
||
|
|
:s:testing (s--) 'Testing_ s:prepend s:put nl ;
|
||
|
|
's:(evaluate) s:testing
|
||
|
|
'#2_#3_#136_dump-stack s:(evaluate)
|
||
|
|
'reset_dump-stack s:(evaluate)
|
||
|
|
```
|