Version 7.9 added while

damien-mattei · Mar 30, 2024 · 8b0a470 · 8b0a470
1 parent 1100b69
commit 8b0a470
Show file tree

Hide file tree

Showing 2 changed files with 33 additions and 2 deletions.
diff --git a/main.rkt b/main.rkt
@@ -68,7 +68,7 @@
 		 **
 		 <v v>
 		 ⇜ ⇝
-		 if repeat do when unless
+		 if repeat do when unless while
 
 		 %
 		 << >>

diff --git a/src/while-do.scm b/src/while-do.scm
@@ -3,7 +3,7 @@
 
 ;; but 'do in Scheme has a painful syntax
 
-;; syntax defined in this file are inspired from Pascal language
+;; syntax defined in this file are inspired from Pascal language, C , Java,Javascript
 
 ;; scheme@(guile-user)> (use-modules (Scheme+))
 ;; scheme@(guile-user)> (define i 0)
@@ -128,6 +128,13 @@
 ;; 27
 ;; 81
 ;; 243
+
+;; > (do  (define j i)  (display "toto") (newline) (set! i (+ i 1)) while (< j 4)) 
+;; toto
+;; toto
+;; toto
+;; toto
+;; toto
 (define-syntax do
   (syntax-rules (while)
 
@@ -141,4 +148,28 @@
 
 
 
+;; > (define x 0)
+;; > (while (< x 10)
+;;           (define y x)  
+;;             (display y)
+;;             (newline)
+;;             (set! x (+ x 1)))
+;; 0
+;; 1
+;; 2
+;; 3
+;; 4
+;; 5
+;; 6
+;; 7
+;; 8
+;; 9
+;; > 
+(define-syntax-rule (while condition body ...)
+  (let loop ()
+    (when condition
+      body ...
+      (loop))))
+
+