13 lines
258 B
Text
13 lines
258 B
Text
|
local :stack [] #lists used to be stacks in DV
|
||
|
|
|
||
|
|
push-to stack 1
|
||
|
|
push-to stack 2
|
||
|
|
push-to stack 3
|
||
|
|
|
||
|
|
!. pop-from stack #prints 3
|
||
|
|
!. pop-from stack #prints 2
|
||
|
|
!. pop-from stack #prints 1
|
||
|
|
|
||
|
|
if stack: #empty lists are falsy
|
||
|
|
error #this stack should be empty now!
|