* 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))
|
||||
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)
|
||||
|
|
Loading…
Reference in New Issue