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