diff options
Diffstat (limited to 'module/language/scheme/compile-ghil.scm')
-rw-r--r-- | module/language/scheme/compile-ghil.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/module/language/scheme/compile-ghil.scm b/module/language/scheme/compile-ghil.scm index 475d50423..e4f1292bf 100644 --- a/module/language/scheme/compile-ghil.scm +++ b/module/language/scheme/compile-ghil.scm @@ -381,6 +381,8 @@ ;; FIXME: not hygienic, relies on @apply not being shadowed (,args (retrans `(@apply ,@args)))) +;; FIXME: we could add inliners for `list' and `vector' + (define-scheme-translator @apply ((,proc ,arg1 . ,args) (let ((args (cons (retrans arg1) (map retrans args)))) |