fix order of added preload funcs
This commit is contained in:
@@ -983,7 +983,10 @@
|
||||
((CallExp (object def (Symbol "label")) [(object def (StrExp label))])
|
||||
(unless preload (dictSet labels label idx)))
|
||||
((CallExp (object def (Symbol "preload")) preloadExps)
|
||||
(when preload (doFor exp preloadExps (preloadFuncs.push ->:Void (interp.evalCC exp ->_ {})))))
|
||||
(when preload (doFor exp (reverse preloadExps) (preloadFuncs.unshift ->:Void {
|
||||
(print (kiss.Reader.toString exp.def))
|
||||
(interp.evalCC exp ->_ {})
|
||||
}))))
|
||||
(otherwise
|
||||
(unless preload
|
||||
// TODO add more automatic labels
|
||||
@@ -995,5 +998,4 @@
|
||||
})))))
|
||||
(until (stream.isEmpty)
|
||||
(let [exp (interp.read stream)]
|
||||
~(kiss.Reader.toString exp.def)
|
||||
(handleNext exp)))))
|
||||
Reference in New Issue
Block a user