Add string->symbol to DeinProgramm / DMdA advanced.
Also, exclude symbol-related stuff from everything below. svn: r17082
This commit is contained in:
parent
bad728f5b5
commit
97a41443a9
|
@ -19,5 +19,5 @@
|
||||||
procedures
|
procedures
|
||||||
(all-from-except assignments: deinprogramm/DMdA procedures
|
(all-from-except assignments: deinprogramm/DMdA procedures
|
||||||
quote
|
quote
|
||||||
symbol?))
|
symbol? string->symbol symbol->string))
|
||||||
|
|
||||||
|
|
|
@ -18,5 +18,5 @@
|
||||||
quote
|
quote
|
||||||
make-pair pair? first rest
|
make-pair pair? first rest
|
||||||
length map for-each reverse append list list-ref fold
|
length map for-each reverse append list list-ref fold
|
||||||
symbol?
|
symbol? string->symbol symbol->string
|
||||||
apply))
|
apply))
|
||||||
|
|
|
@ -17,5 +17,5 @@
|
||||||
quote eq? equal?
|
quote eq? equal?
|
||||||
set!
|
set!
|
||||||
define-record-procedures-2
|
define-record-procedures-2
|
||||||
symbol?
|
symbol? string->symbol symbol->string
|
||||||
apply))
|
apply))
|
||||||
|
|
|
@ -316,7 +316,9 @@
|
||||||
(symbol? (%a -> boolean)
|
(symbol? (%a -> boolean)
|
||||||
"feststellen, ob ein Wert ein Symbol ist")
|
"feststellen, ob ein Wert ein Symbol ist")
|
||||||
(symbol->string (symbol -> string)
|
(symbol->string (symbol -> string)
|
||||||
"Symbol in Zeichenkette umwandeln"))
|
"Symbol in Zeichenkette umwandeln")
|
||||||
|
(string->symbol (string -> symbol)
|
||||||
|
"Zeichenkette in Symbol umwandeln"))
|
||||||
|
|
||||||
("Verschiedenes"
|
("Verschiedenes"
|
||||||
(equal? (%a %b -> boolean)
|
(equal? (%a %b -> boolean)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user