Mercurial > vba-clojure

diff clojure/com/aurellem/run/image.clj @ 540:7f8030812ac2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
allow path back to bootstrap program from image-kernel.
author Robert McIntyre <rlm@mit.edu>
date Mon, 25 Jun 2012 15:08:52 -0500
parents 5596cd4a3fc6
children
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/run/image.clj	Mon Jun 25 14:55:55 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/image.clj	Mon Jun 25 15:08:52 2012 -0500
     1.3 @@ -664,8 +664,8 @@
     1.4                "0"  ;; OBJ-on flag 
     1.5                "1") ;; no-effect 
     1.6               2))
     1.7 +           ]
     1.8  
     1.9 -           (infinite-loop)]
    1.10          D (flatten D)]
    1.11  
    1.12      (concat A B C D)))
    1.13 @@ -675,6 +675,7 @@
    1.14      (-> (tick (tick (tick (mid-game))))
    1.15          (set-memory-range
    1.16           kernel-address
    1.17 -         (display-image-kernel kernel-address image))
    1.18 +         (concat (display-image-kernel kernel-address image)
    1.19 +                 (infinite-loop)))
    1.20          (PC! kernel-address))))
    1.21