I thought the following would work:
> ,config ,load modules.scm ; from the SU web system
modules.scm .................
Undefined: (toothless-eval)
> ,open htmlout-package
Load structure htmlout-package (y/n)? y
[htmlout-package
htmlout.scm .......
]
;; `htmlout-package' exports `with-tag' (syntax)
> (with-tag #t A ((HREF "http://blast.it.com/";))
(newline))
But it doesn't:
Warning: invalid variable reference
with-tag
Error: undefined variable
A
(package user)
The procedures of the structure are accessible, it's just the macro
which is lacking. If I go ,in htmlout-package I get the expected
result.
rthappe (Scsh 0.5.1 / Sun SPARCstation 4 / SunOS 5.5)
PS: The example
;;; (let ((hp "http://clark.lcs.mit.edu/~shivers";)) ; My home page.
;;; (with-tag port A ((href hp-url) (name "hp"))
;;; (display "home page" port)))
in net/htmlout.scm should probably read `(let ((hp-url ...'
|