* unsupported primitives now show the url for submitting bug reports:

unhandled exception:
 Condition components:
   1. &error
   2. &who: ikarus
   3. &message: "not supported yet, please submit an implementation request"
   4. &url: "https://bugs.launchpad.net/ikarus/"
   5. &irritants: (bitwise-and)
This commit is contained in:
Abdulaziz Ghuloum 2007-11-04 12:01:43 -05:00
parent 86bd3216f5
commit 6348eb9918
1 changed files with 14 additions and 1 deletions

View File

@ -2054,7 +2054,20 @@
"not a valid location for ~s" x op))
x)]
[else
(error #f "not supported yet" op)]))
(let ()
(define-condition-type &url &condition
make-url-condition
url-condition?
(url condition-url))
(raise
(condition
(make-error)
(make-who-condition 'ikarus)
(make-message-condition
"not supported yet, please submit an implementation request")
(make-url-condition
"https://bugs.launchpad.net/ikarus/")
(make-irritants-condition (list op)))))]))
(define (primref-loc op)
(mem (fx- disp-symbol-record-proc record-tag)