added schemeerror and used it

svn: r8223

original commit: 7f3a5c13c2218af5b87e2d27700f1cd863bc320a
This commit is contained in:
Robby Findler 2008-01-05 16:46:17 +00:00
parent 02d7f7f54a
commit fed85187e3

View File

@ -227,6 +227,7 @@
schemeblockelem
schemeinput
schememod
schemeerror
scheme SCHEME scheme/form schemeresult schemeid schememodname
defmodule defmodule* defmodulelang defmodulelang*
defmodule*/no-declare defmodulelang*/no-declare
@ -305,6 +306,9 @@
(define (link url . str)
(make-element (make-target-url url) (decode-content str)))
(define (schemeerror . str)
(make-element "schemeerror" (decode-content str)))
(provide t)
(define (t . str)
(decode-paragraph str))