values and call-with-values now have proper names when printed.

e.g. #<procedure values> and #<procedure call-with-values>

scheme/ikarus.compiler.ss

@@ -2284,6 +2284,7 @@
         (let ([L_values_one_value (gensym)]
               [L_values_many_values (gensym)])
           (list 0 ; no freevars
+              '(name values)
               (label SL_values)
               (cmpl (int (argc-convention 1)) eax)
               (je (label L_values_one_value))
@@ -2315,6 +2316,7 @@
               [L_cwv_call (gensym)])
           (list 
               0 ; no free vars
+              '(name call-with-values)
               (label SL_call_with_values)
               (cmpl (int (argc-convention 2)) eax)
               (jne (label (sl-invalid-args-label)))

scheme/ikarus.intel-assembler.ss

@@ -1067,9 +1067,9 @@
             (cdr ls)))
       (define (code-name ls)
         (let ([a (cadr ls)])
-           (and (pair? a) 
-                (eq? (car a) 'name))
-                (cadr a)))
+           (if (and (pair? a) (eq? (car a) 'name))
+               (cadr a)
+               #f)))
       (let ([closure-size* (map car ls*)]
             [code-name* (map code-name ls*)]
             [ls* (map code-list ls*)])

scheme/last-revision

@@ -1 +1 @@
-1180
+1182