fix order of added preload funcs

This commit is contained in:
2025-10-21 16:42:30 -05:00
parent 1afcdd3198
commit ecb5f6346f

View File

@@ -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)))))