14 lines
343 B
Text
14 lines
343 B
Text
(de printSexpr (Expr Fun)
|
|
(cond
|
|
((pair Expr)
|
|
(Fun "(")
|
|
(printSexpr (car Expr) Fun)
|
|
(for X (cdr Expr)
|
|
(Fun " ")
|
|
(printSexpr X Fun) )
|
|
(Fun ")") )
|
|
((str? Expr)
|
|
(Fun "\"")
|
|
(mapc Fun (chop Expr))
|
|
(Fun "\"") )
|
|
(T (mapc Fun (chop Expr))) ) )
|