refactored object alloc from ins to fix gc bug

src/s.scm

@@ -861,6 +861,8 @@
 
 (define-syntax call-with-current-continuation call/cc)
 
+;dynamic-wind
+
 (define (%map1 p l)
   (let loop ([l l] [r '()])
     (if (pair? l) 
@@ -945,6 +947,35 @@
       (apply for-each p (map vector->list (cons v v*)))))
 
 
+;---------------------------------------------------------------------------------------------
+; Exceptions
+;---------------------------------------------------------------------------------------------
+
+;TBD:
+;
+;with-exception-handler
+;raise
+;raise-continuable
+;error
+;error-object?
+;error-object-message
+;error-object-irritants
+;read-error?
+;file-error?
+
+;---------------------------------------------------------------------------------------------
+; Environments and evaluation
+;---------------------------------------------------------------------------------------------
+
+;TBD:
+;
+;environment
+;scheme-report-environment
+;null-environment
+;interaction-environment
+;eval
+
+
 ;---------------------------------------------------------------------------------------------
 ; I/O Ports
 ;---------------------------------------------------------------------------------------------