/
/
usr
/
lib64
/
guile
/
2.0
/
ccache
/
system
/
vm
Server: server63.web-hosting.com (198.54.116.184)
You: 216.73.216.187
PHP 7.4.33
Dir:
/usr/lib64/guile/2.0/ccache/system/vm
Edit:
/usr/lib64/guile/2.0/ccache/system/vm/traps.go
GOOF----LE-8-2.0�t ] � 4 hU ] g guile� � g define-module*� � � g system� g vm� g traps� � g filenameS� f system/vm/traps.scm� g importsS� g base� g pmatch� � � � � g frame� � � g program� � � g objcode� � � g instruction� � � g xref� � ! � "g rnrs� #g bytevectors� $"# � %$ � &!% � 'g exportsS� (g trap-at-procedure-call� )g trap-in-procedure� *g trap-instructions-in-procedure� +g trap-at-procedure-ip-in-range� ,g trap-at-source-location� -g trap-frame-finish� .g trap-in-dynamic-extent� /g trap-calls-in-dynamic-extent� 0g #trap-instructions-in-dynamic-extent� 1g trap-calls-to-procedure� 2g trap-matching-instructions� 3()*+,-./012 � 4g set-current-module� 54 � 64 � 7g make-syntax-transformer� 87 � 97 � :g arg-check� ;g macro� <g $sc-dispatch� =< � >< � ?g any� @???? � Ag syntax-object� Bg if� Cg top� DC � Eg ribcage� Fg dummy� Gg arg� Hg predicate?� Ig message� JFGHI � Kg m-1f68148ae-0� LKC � MLDDD � Nf l-1f68148ae-5� Of l-1f68148ae-6� Pf l-1f68148ae-7� Qf l-1f68148ae-8� RNOPQ � SEJMR � TE � Ug x� VU � WL � Xf l-1f68148ae-2� YX � ZEVWY � [DSTZ � \g hygiene� ]\ � ^AB[] � _g not� `A_[] � ag error� bAa[] � cf bad argument ~a: ~a� dAc[] � eg quote� fAe[] � g??? � hFGH � iLDD � jf l-1f68148ae-e� kf l-1f68148ae-f� lf l-1f68148ae-10� mjkl � nEhim � oDnTZ � pABo] � qA_o] � rAao] � sf bad argument ~a: expected ~a� tAso] � uAeo] � vg syntax-violation� wv � xv � yf -source expression failed to match any pattern� zf trap already enabled� {f trap already disabled� |g new-disabled-trap� }g new-enabled-trap� ~g procedure� g frame-procedure� �g program?� �g program-objcode� �g frame-matcher� �g vmS� �� �� �g closure?S� �� �� �g our-frame?S� �� �� ���� � �g the-vm� �g procedure?� �g proc� �g handler� �g add-hook!� �g vm-apply-hook� �g remove-hook!� �g current-frameS� �� �� �� �� �� �� �� �� ����� � �g enter-handler� �g exit-handler� �g warn� �f already in proc� �g frame-previous� �g vm-push-continuation-hook� �g vm-pop-continuation-hook� �g vm-abort-continuation-hook� �g vm-restore-continuation-hook� �g next-handler� �g vm-next-hook� �g number?� �g integer?� �g exact?� �g non-negative-integer?� �g positive-integer?� �g and-map� �g range?� �g or-map� �g in-range?� �g range� �g frame-address� �g frame-instruction-pointer� �g objcode->bytecode� �g program-last-ip� �f unexpected� �g for-each� �g assv-set!� �g assv-ref� �g sort!� �g program-sources-pre-retire� �g program-sources-by-line� �f no instructions found at� �f :� �f ; using line� �f instead� �f no instructions found for� �g source->ip-range� �g source-closures� �g source-procedures� �g source-closures-or-procedures� ��� � �g string?� �g file� �g user-line� �g map� �f No procedures found at ~a:~a.� �� �� �� � �g frame?� �g return-handler� �g abort-handler� �f .return-or-abort traps may only be enabled once� �� �� �� �� �� �� �� �� ����� � �g apply-handler� �� �� �� �� �� �� ����� � �g length� �g delq� �� � �g frame-pred�C 5 hc ]4 &'35 46 > " G 49:;>@^`bdf h( k ] C c g dummy $ g arg $ g predicate? $ g message $ $ Cgpqrtu h0 V ] C N g dummy ) g arg ) g predicate? ) ) Cxy h@ � ]4 5$ @4 5$ @ 6 � g x 9 g tmp 9 g tmp " 9 g filenamef system/vm/traps.scm� N �� 9 g macro-typeg syntax-rules�g patternsg argg predicate?g message g argg predicate? C5:Raza{ hP � - . , 3 # M$ " 4> " G 4L > " G NL C � g frame I g filenamef system/vm/traps.scm� c �� d �� d �� $ d �� ) d �� 2 e �� D f �� I g nameg disable-trap� C hX � - . , 3 # M$ 4> " G " 4L > " G NLL LO C � g frame R g filenamef system/vm/traps.scm� ] �� ^ �� ^ �� ^ �� % ^ �� 2 _ �� F ` �� R g nameg enable-trap� C h � ]HO Q C � g vm g enable g disable g enabled? g enable-trap g filenamef system/vm/traps.scm� V �� W �� g nameg new-disabled-trap� C|R| h � ]4 56 � g vm g frame g enable g disable g filenamef system/vm/traps.scm� k �� l �� l �� g nameg new-enabled-trap� C}R~�� h8 � ] 4 5L &