GOOF----LE-8-2.0k ] V 4 h� ] g guile� � g define-module*� � � g ice-9� g mapping� � g filenameS�
f ice-9/mapping.scm� g importsS� g poe�
�
� � g exportsS� g mapping-hooks-type� g make-mapping-hooks� g mapping-hooks?� g mapping-hooks-get-handle� g mapping-hooks-create-handle� g mapping-hooks-remove� g mapping-type� g make-mapping� g mapping?� g
mapping-hooks� g mapping-data� g set-mapping-hooks!� g set-mapping-data!� g mapping-get-handle� g mapping-create-handle!� g mapping-remove!� !g mapping-ref� "g mapping-set!� #g hash-table-mapping-hooks� $g make-hash-table-mapping� %g hash-table-mapping� & !"#$% � 'g set-current-module� (' � )' � *g issue-deprecation-warning� +f H(ice-9 mapping) is deprecated. Use srfi-69 or rnrs hash tables instead.� ,g make-record-type� -g
get-handle� .g
create-handle� /g remove� 0-./ � 1g
perfect-funcq� 2g record-constructor� 3g record-predicate� 4g record-accessor� 5g hooks� 6g data� 756 � 8g record-modifier� 9g hashq� :g assq� ;g hashq-get-handle� <g hashq-create-handle!� =g
hashq-remove!� >g hashv� ?g assv� @g hashv-get-handle� Ag hashv-create-handle!� Bg
hashv-remove!� Cg hash� Dg assoc� Eg hash-get-handle� Fg hash-create-handle!� Gg hash-remove!� Hg hashx-get-handle� Ig hashx-create-handle!� Jg
hashx-remove!� Kg hash-procS� LK �� Mg
assoc-procS� NM �� Og table-constructorS� PO �� QLNP � Rg assq-ref� Sg error� Tf 6Hash-procedure specified with no known assoc function.� Ug make-vector�C 5 h� I ]4
&5 4) > " G 4*i+> " G 4,i05R41i 42ii55R43ii5R44ii-5R44ii.5R44ii/5R4,i75R42ii5R43ii5R44ii55R44ii65R48ii55 R48ii65 R h � ]44 55 6 � g map
g key g filenamef ice-9/mapping.scm�
5
�� 6 �� 6 �� 6 �� 6 �� g nameg mapping-get-handle� C R h � ]44 55 6 � g map
g key g init g filenamef ice-9/mapping.scm�
7
�� 8 �� 8 �� 8 �� 8 �� g nameg mapping-create-handle!� C R h � ]44 55 6 � g map
g key g filenamef ice-9/mapping.scm�
9
�� : �� : �� : �� : �� g nameg mapping-remove!� C R h0 � - . , 3 # 4 5 $ �CC � g map
- g key - g dflt - g t - g filenamef ice-9/mapping.scm�
<
�� > �� = �� - g nameg mapping-ref� C!R h � ]4 5�C � g map
g key g val g filenamef ice-9/mapping.scm�
A
�� B �� B �� g nameg mapping-set!� C"R41i 9:; h y - 1 3 L 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm�
G �� G >�� G 2��
C< h y - 1 3 L 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm�
G �� G >�� G 2��
C= h y - 1 3 L 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm�
G �� G >�� G 2��
C>?@ h y - 1 3 L 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm�
G �� G >�� G 2��
CA h y - 1 3 L 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm�
G �� G >�� G 2��
CB h y - 1 3 L 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm�
G �� G >�� G 2��
CCDE h y - 1 3 L 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm�
G �� G >�� G 2��
CF h y - 1 3 L 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm�
G �� G >�� G 2��
CG h y - 1 3 L 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm�
G �� G >�� G 2��
CH h q ]LL 6 i g table
g key g filenamef ice-9/mapping.scm�
[ .�� \ 0�� C h y - 1 3 L LO 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm�
G �� G >�� G 2��
CI h � ]LL 6{ g table
g key g init g filenamef ice-9/mapping.scm�
^ .�� _ 0�� C h y - 1 3 L LO 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm�
G �� G >�� G 2��
CJ h q ]LL 6 i g table
g key g filenamef ice-9/mapping.scm�
a .�� b 0�� C h y - 1 3 L LO 4 5@ q g 1st
g rest g filenamef ice-9/mapping.scm�
G �� G >�� G 2��
C h� � ] �$ . O O O 6
�$ .
O O O 6 �$ . O O O 6 O O O 6 � g hash-proc
� g
assoc-proc � g procs � g proc ) g proc + 7 g proc 9 E g proc Y e g proc g s g proc u � g proc � � g proc � � g proc � � g filenamef ice-9/mapping.scm�
J �� K "�� K �� M '�� M �� L �� N -�� + O -�� 9 P -�� G N �� P Q '�� Q Q �� U L �� Y R -�� g S -�� u T -�� � R �� � U '�� � U �� � L �� � V -�� � W -�� � X -�� � V �� � Z �� � C5#R# h � ]45 6 � g table
g hash-proc g
assoc-proc g filenamef ice-9/mapping.scm�
d
�� e �� e �� g nameg make-hash-table-mapping� C$RQCR9:>?DS%TU h f ] 6 ^ g len
g filenamef ice-9/mapping.scm�
r �� r =�� r ,�� C$ h� b - / 0 3 # G # # 74��� 5 $ " 4
5 #
4 56 Z g size
} g hash-proc } g
assoc-proc } g table-constructor } g t F b g filenamef ice-9/mapping.scm�
g
�� . j "�� 5 j ,�� F j "�� F j �� U n "�� Y n )�� [ o )�� _ n "�� q s �� } s �� }
g hash-procS �g
assoc-procS �g table-constructorS � g nameg hash-table-mapping� C%RC A g m
, g filenamef ice-9/mapping.scm�
�� -
�� 3 �� 8
�� A " �� G " -�� I " <�� K " �� N "
�� O ' �� V ' -�� b ' �� e '
�� f ( �� s (
�� t ) !�� ~ ) E�� � ) !�� � )
�� � * $�� � * H�� � * $�� � *
�� � + �� � + A�� � + �� � +
�� � - �� � - '�� � - 0�� � - �� � -
�� � . �� � .
�� � / �� � /
�� � 0 �� � 0 4�� � 0 �� � 0
�� � 1 �� � 1 3�� � 1 �� � 1
�� � 2 �� � 2 9�� � 2 �� � 2
�� � 3 �� 3 8��
3 ��
3
�� � 5
�� � 7
�� � 9
�� � <
�� c A
�� d I �� " F
��
d
�� � g
�� > �
C6