diff options
author | Andy Wingo <wingo@igalia.com> | 2013-08-16 17:52:01 +0200 |
---|---|---|
committer | Andy Wingo <wingo@igalia.com> | 2013-08-17 11:41:36 +0200 |
commit | 324418bc1967e809daf8ae25eb33e0ca1c8d3d07 (patch) | |
tree | 622be662fe050dbf2c92041c97560eaa14e66833 | |
parent | 2a99c150bce77aa8ddc1d56f440efb81f8a98818 (diff) | |
download | guile-324418bc1967e809daf8ae25eb33e0ca1c8d3d07.tar.gz |
FIXME fixes
* module/language/cps/reify-primitives.scm: Remove a FIXME.
* module/language/tree-il/compile-cps.scm (convert): Reword a FIXME.
-rw-r--r-- | module/language/cps/reify-primitives.scm | 3 | ||||
-rw-r--r-- | module/language/tree-il/compile-cps.scm | 2 |
2 files changed, 1 insertions, 4 deletions
diff --git a/module/language/cps/reify-primitives.scm b/module/language/cps/reify-primitives.scm index a703194cc..27ebc352e 100644 --- a/module/language/cps/reify-primitives.scm +++ b/module/language/cps/reify-primitives.scm @@ -34,9 +34,6 @@ #:use-module (language rtl) #:export (reify-primitives)) -;; FIXME: Some of these common utilities should be factored elsewhere, -;; perhaps (language cps). - (define (module-box src module name public? bound? val-proc) (let-gensyms (module-sym name-sym public?-sym bound?-sym kbox box) (build-cps-term diff --git a/module/language/tree-il/compile-cps.scm b/module/language/tree-il/compile-cps.scm index 82b1dd2c9..d3490259f 100644 --- a/module/language/tree-il/compile-cps.scm +++ b/module/language/tree-il/compile-cps.scm @@ -231,7 +231,7 @@ (build-cps-term ($continue k ($prim name)))) (($ <lambda> fun-src meta body) - ;; FIXME: add src field to fun + ;; FIXME: Add a src field to $fun. (let () (define (convert-entries body) (match body |