From: sforman <sforman@hushmail.com>
Date: Sat, 12 Aug 2023 06:02:46 +0000 (-0700)
Subject: first rest
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=f45c739fad30f56299a028a3600c681653b38128;p=joypy%2FThun.git

first rest
---

diff --git a/implementations/scheme-chicken/joy.scm b/implementations/scheme-chicken/joy.scm
index f747a38..4175385 100644
--- a/implementations/scheme-chicken/joy.scm
+++ b/implementations/scheme-chicken/joy.scm
@@ -66,8 +66,8 @@
 
     ((is-it? "concat") ((joy-func append) stack expression dict))
     ((is-it? "cons") ((joy-func cons) stack expression dict))
-    ;((is-it? "first") ((joy-func not-equal) stack expression dict))
-    ;((is-it? "rest") ((joy-func not-equal) stack expression dict))
+    ((is-it? "first") (values (cons (caar stack) (cdr stack)) expression dict))
+    ((is-it? "rest")  (values (cons (cdar stack) (cdr stack)) expression dict))
 
     ((is-it? "i") (joy-i stack expression dict))
     ((is-it? "dip") (joy-dip stack expression dict))
@@ -181,7 +181,7 @@
   (let ((def_list (text->expression def)))
     (hash-table-set! dict (car def_list) (cdr def_list))))
 
-(display (doit "5 [] cons [4] concat"))
+(display (doit "5 [] cons [4] concat first"))
 
 ;(display (doit "5 down_to_zero"))
 ;(display (doit "1 2 true [4 5 false] loop <"))