(##gc-report-set! #t)(for-each (lambda (x) ((c-lambda () scheme-object "___result = ___EXT(___alloc_scmobj)(___sU8VECTOR,10000,___MOVABLE0);if (!___FIXNUMP(___result)) ___EXT(___release_scmobj) (r);")))(string->list (make-string 100000))(##gc)
___result = ___EXT(___alloc_scmobj)(___sU8VECTOR,len,___STILL);if (!___FIXNUMP(___result)) ___still_obj_refcount_dec(___result);
Fix, duno if safe & complete(##gc-report-set! #t)(for-each (lambda (x) ((c-lambda () scheme-object "___result = ___EXT(___alloc_scmobj)(___sU8VECTOR,10000,___STILL);if (!___FIXNUMP(___result)) ___still_obj_refcount_dec (___result);")))(string->list (make-string 100000))(##gc)