* 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
	
	 Abdulaziz Ghuloum
						Abdulaziz Ghuloum