diff options
Diffstat (limited to '')
-rw-r--r-- | module/calp/main.scm | 2 | ||||
-rw-r--r-- | module/datetime.scm | 7 | ||||
-rw-r--r-- | module/vcomponent/base.scm | 1 |
3 files changed, 9 insertions, 1 deletions
diff --git a/module/calp/main.scm b/module/calp/main.scm index 607b9f1b..7477e2e8 100644 --- a/module/calp/main.scm +++ b/module/calp/main.scm @@ -241,6 +241,8 @@ '("term")))) ((case (string->symbol (car ropt)) ((html) (@ (calp entry-points html) main)) + ;; TODO chnange term to be non-interactive term + ;; and then add interactive-term (or similar) ((term) (@ (calp entry-points terminal) main)) ((import) (@ (calp entry-points import) main)) ((text) (@ (calp entry-points text) main)) diff --git a/module/datetime.scm b/module/datetime.scm index 18c965ff..478fc479 100644 --- a/module/datetime.scm +++ b/module/datetime.scm @@ -65,6 +65,11 @@ (year year) (month month) (day day)) (define*-public (date key: (year 0) (month 0) (day 0)) + (unless (and (integer? year) (integer? month) (integer? day)) + (scm-error 'wrong-type-arg "date" + "Year, month, and day must all be integers. ~s, ~s, ~s" + (list year month day) + #f)) (make-date year month day)) (set-record-type-printer! @@ -72,7 +77,7 @@ (lambda (r p) (catch 'misc-error (lambda () (display (date->string r "#~Y-~m-~d") p)) - (lambda (err _ fmt args . rest) + (lambda (err proc fmt args data) (format p "#<<date> BAD year=~s month=~s day=~s>" (year r) (month r) (day r)))))) diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm index 579382ae..18f31aaf 100644 --- a/module/vcomponent/base.scm +++ b/module/vcomponent/base.scm @@ -164,6 +164,7 @@ (define-public (copy-vcomponent component) (make-vcomponent% (type component) + ;; TODO deep copy? (children component) (parent component) ;; properties |