* 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:
parent
86bd3216f5
commit
6348eb9918
|
@ -2054,7 +2054,20 @@
|
||||||
"not a valid location for ~s" x op))
|
"not a valid location for ~s" x op))
|
||||||
x)]
|
x)]
|
||||||
[else
|
[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)
|
(define (primref-loc op)
|
||||||
(mem (fx- disp-symbol-record-proc record-tag)
|
(mem (fx- disp-symbol-record-proc record-tag)
|
||||||
|
|
Loading…
Reference in New Issue