* better error message for unimplemented primitives

This commit is contained in:
Abdulaziz Ghuloum 2007-11-04 12:25:01 -05:00
parent ab282428fe
commit a12781ef2f
1 changed files with 3 additions and 2 deletions

View File

@ -2063,10 +2063,11 @@
(condition (condition
(make-error) (make-error)
(make-who-condition 'ikarus) (make-who-condition 'ikarus)
(make-message-condition "primitive not supported yet")
(make-message-condition (make-message-condition
"not supported yet, please submit an implementation request") "please file a bug report to help us prioritize our goals")
(make-url-condition (make-url-condition
"https://bugs.launchpad.net/ikarus/") "https://bugs.launchpad.net/ikarus/+filebug")
(make-irritants-condition (list op)))))])) (make-irritants-condition (list op)))))]))
(define (primref-loc op) (define (primref-loc op)