diff --git a/trans.scm b/trans.scm index a327d069..8703ae41 100644 --- a/trans.scm +++ b/trans.scm @@ -1724,8 +1724,11 @@ ; compute index of result that is after any libs that lib imports ; compute index of result that is before any libs that import lib ; if there is a 'hole' then insert lib into result in that space - ; otherwise, throw an error (unfortunate but best we can do right now) + ; otherwise, throw an error (unfortunate but will identify problems) +; TODO: helper function - (list-insert-at! lis obj k) +; +; ; (let* ((result '()) ; (add-result! ; (lambda (name) @@ -1767,6 +1770,11 @@ ; base read eval (base has no deps and is already there, nothing to do) ; base read eval lib2 lib1 (lib1's 'stuff' added at the end) + + + + + ;; END Library section ; Suitable definitions for the cell functions: