X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=jars.git;a=blobdiff_plain;f=mars.scm;h=e97d2ba7a1efe90b601709981ed6cc2faafeb3fe;hp=3ead51f09ec9b19da85ae4bbba8bf6677590a72d;hb=d7a887f10bfff04a5820d34615db3f2e5f1d37ea;hpb=7290d31ea915ea868ca34857e62fea9133db33f8

diff --git a/mars.scm b/mars.scm
index 3ead51f..e97d2ba 100644
--- a/mars.scm
+++ b/mars.scm
@@ -79,7 +79,9 @@
   ;;; Memory setup and addressing
   ;;
 
-  (define (make-core core-size initial-instr . set-functions)
+  (define INITIAL-INSTR (make-instr 'DAT 'F 'immediate 0 'immediate 0))
+
+  (define (make-core core-size . set-functions)
     (let ((core-vec (make-vector core-size '()))
           (names-vec (make-vector core-size '())))
       (define (norm-addr i)
@@ -105,7 +107,7 @@
         (print))
       (let loop ((i 0))
         (unless (>= i core-size)
-          (vector-set! core-vec i (initial-instr 'make-copy))
+          (vector-set! core-vec i (INITIAL-INSTR 'make-copy))
           (loop (+ i 1))))
       (lambda args
         (match args