aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/examples/rec-char.frt
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/examples/rec-char.frt')
-rw-r--r--amforth-6.5/examples/rec-char.frt12
1 files changed, 0 insertions, 12 deletions
diff --git a/amforth-6.5/examples/rec-char.frt b/amforth-6.5/examples/rec-char.frt
deleted file mode 100644
index 1e7b1ac..0000000
--- a/amforth-6.5/examples/rec-char.frt
+++ /dev/null
@@ -1,12 +0,0 @@
-\ check for the 'c' syntax for single
-\ characters.
-: rec:char ( addr len -- n r:num | r:fail )
- 3 = if \ a three character string
- dup c@ [char] ' = if \ starts with a '
- dup 2 + c@ [char] ' = if \ and ends with a '
- 1+ c@ r:num exit
- then
- then
- then
- drop r:fail
-;