From 7390af67e18e6d17934541dd3c2d6d46cfad84d0 Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Mon, 31 Jan 2022 11:08:30 +0200 Subject: Pop words type-safely from stack --- samples/conditional.sample | 8 ++++---- samples/phrase.sample | 4 +--- samples/strliterals.sample | 3 +++ 3 files changed, 8 insertions(+), 7 deletions(-) create mode 100644 samples/strliterals.sample (limited to 'samples') diff --git a/samples/conditional.sample b/samples/conditional.sample index fb67d66..2cb9326 100644 --- a/samples/conditional.sample +++ b/samples/conditional.sample @@ -1,7 +1,7 @@ define eq10? 10 eq? - [ true ] - [ false ] cond ; + [ "true" ] + [ "false" ] cond ; -10 eq10? . -5 eq10? . \ No newline at end of file +10 eq10? s. +5 eq10? s. diff --git a/samples/phrase.sample b/samples/phrase.sample index 8348f1e..1c84bac 100644 --- a/samples/phrase.sample +++ b/samples/phrase.sample @@ -1,3 +1 @@ -[ 1 2 [ 3 a ] ] - -[ a b c ] +[ 1 2 ] s. \ No newline at end of file diff --git a/samples/strliterals.sample b/samples/strliterals.sample new file mode 100644 index 0000000..ee61fa2 --- /dev/null +++ b/samples/strliterals.sample @@ -0,0 +1,3 @@ +[ 'a' 'b' 'c' ] dup s. +"abc" dup s. +eq? . -- cgit v1.3