X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_const.lisp;fp=src%2Flisp%2Fao_lisp_const.lisp;h=f8a709799ff5b05b580246bc176910b4345545d2;hp=9fb7634c5858e1cd7d4d76330b8ab72953ad9da6;hb=00bf2ca86b60e6501880011897cea073865c5a03;hpb=5f9f97cc2d43936d1941da3a9a130c279bc70b99

diff --git a/src/lisp/ao_lisp_const.lisp b/src/lisp/ao_lisp_const.lisp
index 9fb7634c..f8a70979 100644
--- a/src/lisp/ao_lisp_const.lisp
+++ b/src/lisp/ao_lisp_const.lisp
@@ -25,7 +25,7 @@
 
 (set (quote define) (macro (name val rest)
 			(list
-			 'progn
+			 'begin
 			 (list
 			  'set
 			  (list 'quote name)
@@ -520,6 +520,26 @@
 	     '(54 0 37 -3 245 19))
    #t))
 
+(define repeat (macro (count rest)
+			(list
+			 let
+			 (list
+			  (list '__count__ count))
+			 (append
+			  (list
+			   while
+			   (list
+			    <=
+			    0
+			    (list
+			     set!
+			     '__count__
+			     (list
+			      -
+			      '__count__
+			      1))))
+			  rest))))
+
 ;(define number->string (lexpr (arg opt)
 ;			      (let ((base (if (null? opt) 10 (car opt)))
 					;