From d722800131228ed6dbb52313a88b882374b9bfa0 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 24 Mar 2015 22:57:11 -0400 Subject: [PATCH] Added TODO's and notes --- TODO | 4 ++++ trans.scm | 2 ++ 2 files changed, 6 insertions(+) diff --git a/TODO b/TODO index 58fb23d0..a7e6679f 100644 --- a/TODO +++ b/TODO @@ -6,6 +6,10 @@ Working TODO list: - Error handling need to perform much more error handling of input code. one of the biggest is to report if a function is passed the wrong number of arguments, as this will result in segfauls, bad transport errors, etc downstream if it is allowed. + idea: set num_args and var_args in closure types. then can modify apply() to + check that the right number of args is provided for closure types. don't want to check + numargs all the time, especially for compiled code. but this seems like a good compromise. + - Add unit tests for exception handlers, and new constructs added to lib - Reduction in size of generated code diff --git a/trans.scm b/trans.scm index f3c0cae6..0c209539 100644 --- a/trans.scm +++ b/trans.scm @@ -55,8 +55,10 @@ (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) (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) (define (foldl func accum lst) (if (null? lst) accum