Clean up import declaration in render-specials

Wrap everything in a begin to pass to eval later on.

1 files changed, 3 insertions, 8 deletions

@@ -1,9 +1,4 @@
 ;;; schmaltz --- the command-line program
-;; This is not written portably.
-
-(cond-expand
-  (chicken (import r7rs utf8))
-  (else))
 
 (import (schmaltz)
         (scheme file)
@@ -15,9 +10,9 @@
   (chicken
    (render-specials
     (cons (cons #\@ (lambda (port)           ; wrap the next form in `sxml->html'
-                      ;; wow this is ugly ... how can i make this better?
-                      (eval '(import (html-parser)) (interaction-environment))
-                      `(sxml->html ,(list 'quasiquote (read port)))))
+                      `(begin
+                         (import (html-parser))
+                         (sxml->html ,(list 'quasiquote (read port))))))
           (render-specials)))
    (render-unprintables
     (list (cons "#<unspecified>" (lambda _ '()))