зеркало из https://github.com/mozilla/gecko-dev.git
Fixed syntax of (bottom)
This commit is contained in:
Родитель
9c8cec86f9
Коммит
cee3bc879e
|
@ -13,7 +13,7 @@
|
|||
(+ (- (character-to-code c) (character-to-code #\A)) 10)
|
||||
(if (character-set-member c (set-of-ranges character #\a #\z))
|
||||
(+ (- (character-to-code c) (character-to-code #\a)) 10)
|
||||
(bottom integer)))))
|
||||
(bottom)))))
|
||||
)))
|
||||
|
||||
(defparameter *sfg* (world-grammar *sfw* 'standard-function-grammar)))
|
||||
|
|
|
@ -13,7 +13,7 @@
|
|||
(+ (- (character-to-code c) (character-to-code #\A)) 10)
|
||||
(if (character-set-member c (set-of-ranges character #\a #\z))
|
||||
(+ (- (character-to-code c) (character-to-code #\a)) 10)
|
||||
(bottom integer)))))
|
||||
(bottom)))))
|
||||
)))
|
||||
|
||||
(defparameter *sfg* (world-grammar *sfw* 'standard-function-grammar)))
|
||||
|
|
Загрузка…
Ссылка в новой задаче