about summary refs log tree commit diff stats
path: root/schmaltz.scm
diff options
context:
space:
mode:
Diffstat (limited to 'schmaltz.scm')
-rw-r--r--schmaltz.scm11
1 files changed, 3 insertions, 8 deletions
diff --git a/schmaltz.scm b/schmaltz.scm index f1d5e24..f8885f5 100644 --- a/schmaltz.scm +++ b/schmaltz.scm
@@ -1,9 +1,4 @@
1;;; schmaltz --- the command-line program 1;;; schmaltz --- the command-line program
2;; This is not written portably.
3
4(cond-expand
5 (chicken (import r7rs utf8))
6 (else))
7 2
8(import (schmaltz) 3(import (schmaltz)
9 (scheme file) 4 (scheme file)
@@ -15,9 +10,9 @@
15 (chicken 10 (chicken
16 (render-specials 11 (render-specials
17 (cons (cons #\@ (lambda (port) ; wrap the next form in `sxml->html' 12 (cons (cons #\@ (lambda (port) ; wrap the next form in `sxml->html'
18 ;; wow this is ugly ... how can i make this better? 13 `(begin
19 (eval '(import (html-parser)) (interaction-environment)) 14 (import (html-parser))
20 `(sxml->html ,(list 'quasiquote (read port))))) 15 (sxml->html ,(list 'quasiquote (read port))))))
21 (render-specials))) 16 (render-specials)))
22 (render-unprintables 17 (render-unprintables
23 (list (cons "#<unspecified>" (lambda _ '())) 18 (list (cons "#<unspecified>" (lambda _ '()))