4 call (void)scm_newline (scm_current_error_port ())
8 call (void)scm_call_1 (scm_variable_ref (scm_c_module_lookup (scm_c_resolve_module ("ice-9 pretty-print"), "pretty-print")), $arg0)
12 call (void)scm_display ($arg0, scm_current_error_port ())
17 call (void)scm_write ($arg0, scm_current_error_port ())
22 call (void)scm_puts ($arg0, scm_current_error_port ())
26 print ((SCM**)$arg0)[1][$arg1]
48 lforeach $uses modname
72 set $x=((SCM*)$arg0)[$arg1]
81 p *(struct scm_program*)$x
88 gwrite fp[bp->nargs+$i]
101 p ((scm_t_bits)$arg0) & 0xffff
104 define smobdescriptor
105 p scm_smobs[0xff & (((scm_t_bits)$arg0) >> 8)]
110 set $vmstack_base=stack_base
118 while $vmsp > $vmstack_base
119 output $orig_vmsp - $vmsp
145 set $vmdl=(SCM*)(*$vmsp)
159 set $vmnlocs=(int)$vmbp->nlocs
168 set $vmnlocs=$vmnlocs-1
170 set $vmnargs=(int)$vmbp->nargs
179 set $vmnargs=$vmnargs-1
191 set $vmbp=(struct scm_program*)(((SCM*)($vmfp[-1]))[1])
192 set $vmstack_base=$vmfp+$vmbp->nargs+$vmbp->nlocs+4
193 set $vmframe=$vmframe+1
199 while $vmsp > vp->stack_base
205 p scm_instruction_table[$arg0]