From 3bb3234db70292b15c29859e93a9b9f9a180ecee Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 25 Mar 2015 14:41:55 -0400 Subject: [PATCH] TODO stubs for char>? --- trans.scm | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/trans.scm b/trans.scm index 6352c819..24cf1664 100644 --- a/trans.scm +++ b/trans.scm @@ -55,7 +55,18 @@ (define *Cyc-version-banner* ,*version-banner*) ;; TODO: The whitespace characters are space, tab, line feed, form feed (not in parser yet), and carriage return. (define call-with-current-continuation call/cc) - ; TODO: (define (char>? c1 c2 . cs) +; TODO: (define (Cyc-bool-op cmp x lst) +; TODO: (cond +; TODO: ((null? lst) #t) +; TODO: ((cmp x (car lst)) +; TODO: (Cyc-bool-op (car lst) (cdr lst))) +; TODO: (else #f))) +; TODO: (define (char>? c1 c2 . cs) +; TODO: (Cyc-bool-op +; TODO: (lambda (x y) +; TODO: (> (char->integer x) (char->integer y))) +; TODO: c1 +; TODO: (cons c2 cs))) (define (char-whitespace? c) (member c '(#\tab #\space #\return #\newline))) (define (char-numeric? c) (member c '(#\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9))) ; TODO: implement in terms of char>? procs ==> (define (char-upper-case? c)