* 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