blob: aceb82cc9b734c51f68d437fd0ddd5e86042ffd1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
(eval-when (load)
(throw 'do-not-load-me
"Import (text numbers <langugage>) instead")
)
;; scheme@(guile-user)> (number->string-cardinal 123)
;; $10 = "hundratjugotre"
;; scheme@(guile-user)> (number->string-ordinal 123)
;; $11 = "hundratjugotredje"
;; scheme@(guile-user)> (each-string 10)
;; $12 = "var tionde"
|
