added schemeerror and used it
svn: r8223 original commit: 7f3a5c13c2218af5b87e2d27700f1cd863bc320a
This commit is contained in:
parent
02d7f7f54a
commit
fed85187e3
|
@ -227,6 +227,7 @@
|
||||||
schemeblockelem
|
schemeblockelem
|
||||||
schemeinput
|
schemeinput
|
||||||
schememod
|
schememod
|
||||||
|
schemeerror
|
||||||
scheme SCHEME scheme/form schemeresult schemeid schememodname
|
scheme SCHEME scheme/form schemeresult schemeid schememodname
|
||||||
defmodule defmodule* defmodulelang defmodulelang*
|
defmodule defmodule* defmodulelang defmodulelang*
|
||||||
defmodule*/no-declare defmodulelang*/no-declare
|
defmodule*/no-declare defmodulelang*/no-declare
|
||||||
|
@ -305,6 +306,9 @@
|
||||||
(define (link url . str)
|
(define (link url . str)
|
||||||
(make-element (make-target-url url) (decode-content str)))
|
(make-element (make-target-url url) (decode-content str)))
|
||||||
|
|
||||||
|
(define (schemeerror . str)
|
||||||
|
(make-element "schemeerror" (decode-content str)))
|
||||||
|
|
||||||
(provide t)
|
(provide t)
|
||||||
(define (t . str)
|
(define (t . str)
|
||||||
(decode-paragraph str))
|
(decode-paragraph str))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user