X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_do.scheme;fp=src%2Fscheme%2Fao_scheme_do.scheme;h=0000000000000000000000000000000000000000;hp=063e4a38b53702419cb162a2420d2e53f074f291;hb=f26cc1a677f577da533425a15485fcaa24626b23;hpb=4b52fc6eea9a478cb3dd42dcd32c92838df39734

diff --git a/src/scheme/ao_scheme_do.scheme b/src/scheme/ao_scheme_do.scheme
deleted file mode 100644
index 063e4a38..00000000
--- a/src/scheme/ao_scheme_do.scheme
+++ /dev/null
@@ -1,34 +0,0 @@
-(define do
-  (macro (vars test . cmds)
-    (define (_step v)
-      (if (null? v)
-	  '()
-	  (if (null? (cddr (car v)))
-	      (_step (cdr v))
-	      (cons `(set! ,(caar v) ,(caddr (car v)))
-		    (_step (cdr v))
-		    )
-	      )
-	  )
-      )
-    `(let ,(map (lambda (v) (list (car v) (cadr v))) vars)
-       (while (not ,(car test))
-	      ,@cmds
-	      ,@(_step vars)
-	      )
-       ,@(cdr test)
-       )
-    )
-  )
-
-(do ((x 1 (+ x 1)))
-    ((= x 10) "done")
-  (display "x: ")
-  (write x)
-  (newline)
-  )
-
-(do ((vec (make-vector 5))
-     (i 0 (+ i 1)))
-    ((= i 5) vec)
-  (vector-set! vec i i))