Răsfoiți Sursa

mimc constants nth element

plato 5 ani în urmă
părinte
comite
53ef1dcb49
2 a modificat fișierele cu 1 adăugiri și 2 ștergeri
  1. 1 1
      lisp/examples/macro-test.lisp
  2. 0 1
      lisp/examples/mimc-constants.lisp

+ 1 - 1
lisp/examples/macro-test.lisp

@@ -253,7 +253,7 @@
 (def! mimc (fn* [left right] (
     (def! xl (alloc "xl" left))
     (def! xr (alloc "xr" right))
-    (def! acc 1)
+    (def! acc 0)
     (dotimes 322 (
         (println (mimc-macro xl xr acc))
         (def! acc (i+ acc 1))

+ 0 - 1
lisp/examples/mimc-constants.lisp

@@ -321,4 +321,3 @@
 "101464d19cf380958e5aef1084736db89f4cb131033ae670f6de0a5cf9d92b73"
 "597cdd384abdad1beccc73fb39f74a18eb44d056951d602c2ef6ef6448fc5626"
 ))
-