X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_const.lisp;h=f8a709799ff5b05b580246bc176910b4345545d2;hb=00bf2ca86b60e6501880011897cea073865c5a03;hp=861a4fc80eed91314a76453f63528fef4d21340e;hpb=12a1f6ad48f2b924f71239effeb90afca75a090f;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_const.lisp b/src/lisp/ao_lisp_const.lisp
index 861a4fc8..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)
@@ -159,9 +159,6 @@
 (odd? 3)
 (odd? -1)
 
-(define exact? number?)
-(defun inexact? (x) #f)
-
 					; (if <condition> <if-true>)
 					; (if <condition> <if-true> <if-false)
 
@@ -523,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)))
 					;