1 |
|
|
2 |
@c module (guile) |
@c module (guile) |
3 |
|
|
4 |
@deffn primitive environment? obj |
@deffn {Scheme Procedure} environment? obj |
5 |
|
@deffnx {C Function} scm_environment_p (obj) |
6 |
Return @code{#t} if @var{obj} is an environment, or @code{#f} |
Return @code{#t} if @var{obj} is an environment, or @code{#f} |
7 |
otherwise. |
otherwise. |
8 |
@end deffn |
@end deffn |
9 |
|
|
10 |
@deffn primitive environment-bound? env sym |
@deffn {Scheme Procedure} environment-bound? env sym |
11 |
|
@deffnx {C Function} scm_environment_bound_p (env, sym) |
12 |
Return @code{#t} if @var{sym} is bound in @var{env}, or |
Return @code{#t} if @var{sym} is bound in @var{env}, or |
13 |
@code{#f} otherwise. |
@code{#f} otherwise. |
14 |
@end deffn |
@end deffn |
15 |
|
|
16 |
@deffn primitive environment-ref env sym |
@deffn {Scheme Procedure} environment-ref env sym |
17 |
|
@deffnx {C Function} scm_environment_ref (env, sym) |
18 |
Return the value of the location bound to @var{sym} in |
Return the value of the location bound to @var{sym} in |
19 |
@var{env}. If @var{sym} is unbound in @var{env}, signal an |
@var{env}. If @var{sym} is unbound in @var{env}, signal an |
20 |
@code{environment:unbound} error. |
@code{environment:unbound} error. |
21 |
@end deffn |
@end deffn |
22 |
|
|
23 |
@deffn primitive environment-fold env proc init |
@deffn {Scheme Procedure} environment-fold env proc init |
24 |
|
@deffnx {C Function} scm_environment_fold (env, proc, init) |
25 |
Iterate over all the bindings in @var{env}, accumulating some |
Iterate over all the bindings in @var{env}, accumulating some |
26 |
value. |
value. |
27 |
For each binding in @var{env}, apply @var{proc} to the symbol |
For each binding in @var{env}, apply @var{proc} to the symbol |
55 |
@end lisp |
@end lisp |
56 |
@end deffn |
@end deffn |
57 |
|
|
58 |
@deffn primitive environment-define env sym val |
@deffn {Scheme Procedure} environment-define env sym val |
59 |
|
@deffnx {C Function} scm_environment_define (env, sym, val) |
60 |
Bind @var{sym} to a new location containing @var{val} in |
Bind @var{sym} to a new location containing @var{val} in |
61 |
@var{env}. If @var{sym} is already bound to another location |
@var{env}. If @var{sym} is already bound to another location |
62 |
in @var{env} and the binding is mutable, that binding is |
in @var{env} and the binding is mutable, that binding is |
66 |
immutable, signal an @code{environment:immutable-binding} error. |
immutable, signal an @code{environment:immutable-binding} error. |
67 |
@end deffn |
@end deffn |
68 |
|
|
69 |
@deffn primitive environment-undefine env sym |
@deffn {Scheme Procedure} environment-undefine env sym |
70 |
|
@deffnx {C Function} scm_environment_undefine (env, sym) |
71 |
Remove any binding for @var{sym} from @var{env}. If @var{sym} |
Remove any binding for @var{sym} from @var{env}. If @var{sym} |
72 |
is unbound in @var{env}, do nothing. The return value is |
is unbound in @var{env}, do nothing. The return value is |
73 |
unspecified. |
unspecified. |
75 |
immutable, signal an @code{environment:immutable-binding} error. |
immutable, signal an @code{environment:immutable-binding} error. |
76 |
@end deffn |
@end deffn |
77 |
|
|
78 |
@deffn primitive environment-set! env sym val |
@deffn {Scheme Procedure} environment-set! env sym val |
79 |
|
@deffnx {C Function} scm_environment_set_x (env, sym, val) |
80 |
If @var{env} binds @var{sym} to some location, change that |
If @var{env} binds @var{sym} to some location, change that |
81 |
location's value to @var{val}. The return value is |
location's value to @var{val}. The return value is |
82 |
unspecified. |
unspecified. |
86 |
@code{environment:immutable-location} error. |
@code{environment:immutable-location} error. |
87 |
@end deffn |
@end deffn |
88 |
|
|
89 |
@deffn primitive environment-cell env sym for_write |
@deffn {Scheme Procedure} environment-cell env sym for_write |
90 |
|
@deffnx {C Function} scm_environment_cell (env, sym, for_write) |
91 |
Return the value cell which @var{env} binds to @var{sym}, or |
Return the value cell which @var{env} binds to @var{sym}, or |
92 |
@code{#f} if the binding does not live in a value cell. |
@code{#f} if the binding does not live in a value cell. |
93 |
The argument @var{for-write} indicates whether the caller |
The argument @var{for-write} indicates whether the caller |
102 |
re-bound to a new value cell, or becomes undefined. |
re-bound to a new value cell, or becomes undefined. |
103 |
@end deffn |
@end deffn |
104 |
|
|
105 |
@deffn primitive environment-observe env proc |
@deffn {Scheme Procedure} environment-observe env proc |
106 |
|
@deffnx {C Function} scm_environment_observe (env, proc) |
107 |
Whenever @var{env}'s bindings change, apply @var{proc} to |
Whenever @var{env}'s bindings change, apply @var{proc} to |
108 |
@var{env}. |
@var{env}. |
109 |
This function returns an object, token, which you can pass to |
This function returns an object, token, which you can pass to |
112 |
token is unspecified. |
token is unspecified. |
113 |
@end deffn |
@end deffn |
114 |
|
|
115 |
@deffn primitive environment-observe-weak env proc |
@deffn {Scheme Procedure} environment-observe-weak env proc |
116 |
|
@deffnx {C Function} scm_environment_observe_weak (env, proc) |
117 |
This function is the same as environment-observe, except that |
This function is the same as environment-observe, except that |
118 |
the reference @var{env} retains to @var{proc} is a weak |
the reference @var{env} retains to @var{proc} is a weak |
119 |
reference. This means that, if there are no other live, |
reference. This means that, if there are no other live, |
122 |
list of observing procedures. |
list of observing procedures. |
123 |
@end deffn |
@end deffn |
124 |
|
|
125 |
@deffn primitive environment-unobserve token |
@deffn {Scheme Procedure} environment-unobserve token |
126 |
|
@deffnx {C Function} scm_environment_unobserve (token) |
127 |
Cancel the observation request which returned the value |
Cancel the observation request which returned the value |
128 |
@var{token}. The return value is unspecified. |
@var{token}. The return value is unspecified. |
129 |
If a call @code{(environment-observe env proc)} returns |
If a call @code{(environment-observe env proc)} returns |
132 |
bindings change. |
bindings change. |
133 |
@end deffn |
@end deffn |
134 |
|
|
135 |
@deffn primitive make-leaf-environment |
@deffn {Scheme Procedure} make-leaf-environment |
136 |
|
@deffnx {C Function} scm_make_leaf_environment () |
137 |
Create a new leaf environment, containing no bindings. |
Create a new leaf environment, containing no bindings. |
138 |
All bindings and locations created in the new environment |
All bindings and locations created in the new environment |
139 |
will be mutable. |
will be mutable. |
140 |
@end deffn |
@end deffn |
141 |
|
|
142 |
@deffn primitive leaf-environment? object |
@deffn {Scheme Procedure} leaf-environment? object |
143 |
|
@deffnx {C Function} scm_leaf_environment_p (object) |
144 |
Return @code{#t} if object is a leaf environment, or @code{#f} |
Return @code{#t} if object is a leaf environment, or @code{#f} |
145 |
otherwise. |
otherwise. |
146 |
@end deffn |
@end deffn |
147 |
|
|
148 |
@deffn primitive make-eval-environment local imported |
@deffn {Scheme Procedure} make-eval-environment local imported |
149 |
|
@deffnx {C Function} scm_make_eval_environment (local, imported) |
150 |
Return a new environment object eval whose bindings are the |
Return a new environment object eval whose bindings are the |
151 |
union of the bindings in the environments @var{local} and |
union of the bindings in the environments @var{local} and |
152 |
@var{imported}, with bindings from @var{local} taking |
@var{imported}, with bindings from @var{local} taking |
170 |
@var{imported} will be an import environment |
@var{imported} will be an import environment |
171 |
@end deffn |
@end deffn |
172 |
|
|
173 |
@deffn primitive eval-environment? object |
@deffn {Scheme Procedure} eval-environment? object |
174 |
|
@deffnx {C Function} scm_eval_environment_p (object) |
175 |
Return @code{#t} if object is an eval environment, or @code{#f} |
Return @code{#t} if object is an eval environment, or @code{#f} |
176 |
otherwise. |
otherwise. |
177 |
@end deffn |
@end deffn |
178 |
|
|
179 |
@deffn primitive eval-environment-local env |
@deffn {Scheme Procedure} eval-environment-local env |
180 |
|
@deffnx {C Function} scm_eval_environment_local (env) |
181 |
Return the local environment of eval environment @var{env}. |
Return the local environment of eval environment @var{env}. |
182 |
@end deffn |
@end deffn |
183 |
|
|
184 |
@deffn primitive eval-environment-set-local! env local |
@deffn {Scheme Procedure} eval-environment-set-local! env local |
185 |
|
@deffnx {C Function} scm_eval_environment_set_local_x (env, local) |
186 |
Change @var{env}'s local environment to @var{local}. |
Change @var{env}'s local environment to @var{local}. |
187 |
@end deffn |
@end deffn |
188 |
|
|
189 |
@deffn primitive eval-environment-imported env |
@deffn {Scheme Procedure} eval-environment-imported env |
190 |
|
@deffnx {C Function} scm_eval_environment_imported (env) |
191 |
Return the imported environment of eval environment @var{env}. |
Return the imported environment of eval environment @var{env}. |
192 |
@end deffn |
@end deffn |
193 |
|
|
194 |
@deffn primitive eval-environment-set-imported! env imported |
@deffn {Scheme Procedure} eval-environment-set-imported! env imported |
195 |
|
@deffnx {C Function} scm_eval_environment_set_imported_x (env, imported) |
196 |
Change @var{env}'s imported environment to @var{imported}. |
Change @var{env}'s imported environment to @var{imported}. |
197 |
@end deffn |
@end deffn |
198 |
|
|
199 |
@deffn primitive make-import-environment imports conflict_proc |
@deffn {Scheme Procedure} make-import-environment imports conflict_proc |
200 |
|
@deffnx {C Function} scm_make_import_environment (imports, conflict_proc) |
201 |
Return a new environment @var{imp} whose bindings are the union |
Return a new environment @var{imp} whose bindings are the union |
202 |
of the bindings from the environments in @var{imports}; |
of the bindings from the environments in @var{imports}; |
203 |
@var{imports} must be a list of environments. That is, |
@var{imports} must be a list of environments. That is, |
225 |
if one of its imported environments changes. |
if one of its imported environments changes. |
226 |
@end deffn |
@end deffn |
227 |
|
|
228 |
@deffn primitive import-environment? object |
@deffn {Scheme Procedure} import-environment? object |
229 |
|
@deffnx {C Function} scm_import_environment_p (object) |
230 |
Return @code{#t} if object is an import environment, or |
Return @code{#t} if object is an import environment, or |
231 |
@code{#f} otherwise. |
@code{#f} otherwise. |
232 |
@end deffn |
@end deffn |
233 |
|
|
234 |
@deffn primitive import-environment-imports env |
@deffn {Scheme Procedure} import-environment-imports env |
235 |
|
@deffnx {C Function} scm_import_environment_imports (env) |
236 |
Return the list of environments imported by the import |
Return the list of environments imported by the import |
237 |
environment @var{env}. |
environment @var{env}. |
238 |
@end deffn |
@end deffn |
239 |
|
|
240 |
@deffn primitive import-environment-set-imports! env imports |
@deffn {Scheme Procedure} import-environment-set-imports! env imports |
241 |
|
@deffnx {C Function} scm_import_environment_set_imports_x (env, imports) |
242 |
Change @var{env}'s list of imported environments to |
Change @var{env}'s list of imported environments to |
243 |
@var{imports}, and check for conflicts. |
@var{imports}, and check for conflicts. |
244 |
@end deffn |
@end deffn |
245 |
|
|
246 |
@deffn primitive make-export-environment private signature |
@deffn {Scheme Procedure} make-export-environment private signature |
247 |
|
@deffnx {C Function} scm_make_export_environment (private, signature) |
248 |
Return a new environment @var{exp} containing only those |
Return a new environment @var{exp} containing only those |
249 |
bindings in private whose symbols are present in |
bindings in private whose symbols are present in |
250 |
@var{signature}. The @var{private} argument must be an |
@var{signature}. The @var{private} argument must be an |
291 |
if the bindings in private change. |
if the bindings in private change. |
292 |
@end deffn |
@end deffn |
293 |
|
|
294 |
@deffn primitive export-environment? object |
@deffn {Scheme Procedure} export-environment? object |
295 |
|
@deffnx {C Function} scm_export_environment_p (object) |
296 |
Return @code{#t} if object is an export environment, or |
Return @code{#t} if object is an export environment, or |
297 |
@code{#f} otherwise. |
@code{#f} otherwise. |
298 |
@end deffn |
@end deffn |
299 |
|
|
300 |
@deffn primitive export-environment-private env |
@deffn {Scheme Procedure} export-environment-private env |
301 |
|
@deffnx {C Function} scm_export_environment_private (env) |
302 |
Return the private environment of export environment @var{env}. |
Return the private environment of export environment @var{env}. |
303 |
@end deffn |
@end deffn |
304 |
|
|
305 |
@deffn primitive export-environment-set-private! env private |
@deffn {Scheme Procedure} export-environment-set-private! env private |
306 |
|
@deffnx {C Function} scm_export_environment_set_private_x (env, private) |
307 |
Change the private environment of export environment @var{env}. |
Change the private environment of export environment @var{env}. |
308 |
@end deffn |
@end deffn |
309 |
|
|
310 |
@deffn primitive export-environment-signature env |
@deffn {Scheme Procedure} export-environment-signature env |
311 |
|
@deffnx {C Function} scm_export_environment_signature (env) |
312 |
Return the signature of export environment @var{env}. |
Return the signature of export environment @var{env}. |
313 |
@end deffn |
@end deffn |
314 |
|
|
315 |
@deffn primitive export-environment-set-signature! env signature |
@deffn {Scheme Procedure} export-environment-set-signature! env signature |
316 |
|
@deffnx {C Function} scm_export_environment_set_signature_x (env, signature) |
317 |
Change the signature of export environment @var{env}. |
Change the signature of export environment @var{env}. |
318 |
@end deffn |
@end deffn |
319 |
|
|
320 |
@deffn primitive %compute-slots class |
@deffn {Scheme Procedure} %compute-slots class |
321 |
|
@deffnx {C Function} scm_sys_compute_slots (class) |
322 |
Return a list consisting of the names of all slots belonging to |
Return a list consisting of the names of all slots belonging to |
323 |
class @var{class}, i. e. the slots of @var{class} and of all of |
class @var{class}, i. e. the slots of @var{class} and of all of |
324 |
its super-classes. |
its superclasses. |
325 |
@end deffn |
@end deffn |
326 |
|
|
327 |
@deffn primitive get-keyword key l default_value |
@deffn {Scheme Procedure} get-keyword key l default_value |
328 |
|
@deffnx {C Function} scm_get_keyword (key, l, default_value) |
329 |
Determine an associated value for the keyword @var{key} from |
Determine an associated value for the keyword @var{key} from |
330 |
the list @var{l}. The list @var{l} has to consist of an even |
the list @var{l}. The list @var{l} has to consist of an even |
331 |
number of elements, where, starting with the first, every |
number of elements, where, starting with the first, every |
334 |
@var{default_value} is returned. |
@var{default_value} is returned. |
335 |
@end deffn |
@end deffn |
336 |
|
|
337 |
@deffn primitive slot-ref-using-class class obj slot_name |
@deffn {Scheme Procedure} slot-ref-using-class class obj slot_name |
338 |
|
@deffnx {C Function} scm_slot_ref_using_class (class, obj, slot_name) |
339 |
|
|
340 |
@end deffn |
@end deffn |
341 |
|
|
342 |
@deffn primitive slot-set-using-class! class obj slot_name value |
@deffn {Scheme Procedure} slot-set-using-class! class obj slot_name value |
343 |
|
@deffnx {C Function} scm_slot_set_using_class_x (class, obj, slot_name, value) |
344 |
|
|
345 |
@end deffn |
@end deffn |
346 |
|
|
347 |
@deffn primitive class-of x |
@deffn {Scheme Procedure} class-of x |
348 |
|
@deffnx {C Function} scm_class_of (x) |
349 |
Return the class of @var{x}. |
Return the class of @var{x}. |
350 |
@end deffn |
@end deffn |
351 |
|
|
352 |
@deffn primitive %goops-loaded |
@deffn {Scheme Procedure} %goops-loaded |
353 |
|
@deffnx {C Function} scm_sys_goops_loaded () |
354 |
Announce that GOOPS is loaded and perform initialization |
Announce that GOOPS is loaded and perform initialization |
355 |
on the C level which depends on the loaded GOOPS modules. |
on the C level which depends on the loaded GOOPS modules. |
356 |
@end deffn |
@end deffn |
357 |
|
|
358 |
@deffn primitive %method-more-specific? m1 m2 targs |
@deffn {Scheme Procedure} %method-more-specific? m1 m2 targs |
359 |
|
@deffnx {C Function} scm_sys_method_more_specific_p (m1, m2, targs) |
360 |
|
|
361 |
@end deffn |
@end deffn |
362 |
|
|
363 |
@deffn primitive find-method . l |
@deffn {Scheme Procedure} find-method . l |
364 |
|
@deffnx {C Function} scm_find_method (l) |
365 |
|
|
366 |
@end deffn |
@end deffn |
367 |
|
|
368 |
@deffn primitive primitive-generic-generic subr |
@deffn {Scheme Procedure} primitive-generic-generic subr |
369 |
|
@deffnx {C Function} scm_primitive_generic_generic (subr) |
370 |
|
|
371 |
@end deffn |
@end deffn |
372 |
|
|
373 |
@deffn primitive enable-primitive-generic! . subrs |
@deffn {Scheme Procedure} enable-primitive-generic! . subrs |
374 |
|
@deffnx {C Function} scm_enable_primitive_generic_x (subrs) |
375 |
|
|
376 |
@end deffn |
@end deffn |
377 |
|
|
378 |
@deffn primitive generic-capability? proc |
@deffn {Scheme Procedure} generic-capability? proc |
379 |
|
@deffnx {C Function} scm_generic_capability_p (proc) |
380 |
|
|
381 |
@end deffn |
@end deffn |
382 |
|
|
383 |
@deffn primitive %invalidate-method-cache! gf |
@deffn {Scheme Procedure} %invalidate-method-cache! gf |
384 |
|
@deffnx {C Function} scm_sys_invalidate_method_cache_x (gf) |
385 |
|
|
386 |
@end deffn |
@end deffn |
387 |
|
|
388 |
@deffn primitive %invalidate-class class |
@deffn {Scheme Procedure} %invalidate-class class |
389 |
|
@deffnx {C Function} scm_sys_invalidate_class (class) |
390 |
|
|
391 |
@end deffn |
@end deffn |
392 |
|
|
393 |
@deffn primitive %modify-class old new |
@deffn {Scheme Procedure} %modify-class old new |
394 |
|
@deffnx {C Function} scm_sys_modify_class (old, new) |
395 |
|
|
396 |
@end deffn |
@end deffn |
397 |
|
|
398 |
@deffn primitive %modify-instance old new |
@deffn {Scheme Procedure} %modify-instance old new |
399 |
|
@deffnx {C Function} scm_sys_modify_instance (old, new) |
400 |
|
|
401 |
@end deffn |
@end deffn |
402 |
|
|
403 |
@deffn primitive %set-object-setter! obj setter |
@deffn {Scheme Procedure} %set-object-setter! obj setter |
404 |
|
@deffnx {C Function} scm_sys_set_object_setter_x (obj, setter) |
405 |
|
|
406 |
@end deffn |
@end deffn |
407 |
|
|
408 |
@deffn primitive %allocate-instance class initargs |
@deffn {Scheme Procedure} %allocate-instance class initargs |
409 |
|
@deffnx {C Function} scm_sys_allocate_instance (class, initargs) |
410 |
Create a new instance of class @var{class} and initialize it |
Create a new instance of class @var{class} and initialize it |
411 |
from the arguments @var{initargs}. |
from the arguments @var{initargs}. |
412 |
@end deffn |
@end deffn |
413 |
|
|
414 |
@deffn primitive slot-exists? obj slot_name |
@deffn {Scheme Procedure} slot-exists? obj slot_name |
415 |
|
@deffnx {C Function} scm_slots_exists_p (obj, slot_name) |
416 |
Return @code{#t} if @var{obj} has a slot named @var{slot_name}. |
Return @code{#t} if @var{obj} has a slot named @var{slot_name}. |
417 |
@end deffn |
@end deffn |
418 |
|
|
419 |
@deffn primitive slot-bound? obj slot_name |
@deffn {Scheme Procedure} slot-bound? obj slot_name |
420 |
|
@deffnx {C Function} scm_slot_bound_p (obj, slot_name) |
421 |
Return @code{#t} if the slot named @var{slot_name} of @var{obj} |
Return @code{#t} if the slot named @var{slot_name} of @var{obj} |
422 |
is bound. |
is bound. |
423 |
@end deffn |
@end deffn |
424 |
|
|
425 |
@deffn primitive slot-set! obj slot_name value |
@deffn {Scheme Procedure} slot-set! obj slot_name value |
426 |
|
@deffnx {C Function} scm_slot_set_x (obj, slot_name, value) |
427 |
Set the slot named @var{slot_name} of @var{obj} to @var{value}. |
Set the slot named @var{slot_name} of @var{obj} to @var{value}. |
428 |
@end deffn |
@end deffn |
429 |
|
|
430 |
@deffn primitive slot-exists-using-class? class obj slot_name |
@deffn {Scheme Procedure} slot-exists-using-class? class obj slot_name |
431 |
|
@deffnx {C Function} scm_slot_exists_using_class_p (class, obj, slot_name) |
432 |
|
|
433 |
@end deffn |
@end deffn |
434 |
|
|
435 |
@deffn primitive slot-bound-using-class? class obj slot_name |
@deffn {Scheme Procedure} slot-bound-using-class? class obj slot_name |
436 |
|
@deffnx {C Function} scm_slot_bound_using_class_p (class, obj, slot_name) |
437 |
|
|
438 |
@end deffn |
@end deffn |
439 |
|
|
440 |
@deffn primitive %fast-slot-set! obj index value |
@deffn {Scheme Procedure} %fast-slot-set! obj index value |
441 |
|
@deffnx {C Function} scm_sys_fast_slot_set_x (obj, index, value) |
442 |
Set the slot with index @var{index} in @var{obj} to |
Set the slot with index @var{index} in @var{obj} to |
443 |
@var{value}. |
@var{value}. |
444 |
@end deffn |
@end deffn |
445 |
|
|
446 |
@deffn primitive %fast-slot-ref obj index |
@deffn {Scheme Procedure} %fast-slot-ref obj index |
447 |
|
@deffnx {C Function} scm_sys_fast_slot_ref (obj, index) |
448 |
Return the slot value with index @var{index} from @var{obj}. |
Return the slot value with index @var{index} from @var{obj}. |
449 |
@end deffn |
@end deffn |
450 |
|
|
451 |
@deffn primitive @@assert-bound-ref obj index |
@deffn {Scheme Procedure} @@assert-bound-ref obj index |
452 |
|
@deffnx {C Function} scm_at_assert_bound_ref (obj, index) |
453 |
Like @code{assert-bound}, but use @var{index} for accessing |
Like @code{assert-bound}, but use @var{index} for accessing |
454 |
the value from @var{obj}. |
the value from @var{obj}. |
455 |
@end deffn |
@end deffn |
456 |
|
|
457 |
@deffn primitive assert-bound value obj |
@deffn {Scheme Procedure} assert-bound value obj |
458 |
|
@deffnx {C Function} scm_assert_bound (value, obj) |
459 |
Return @var{value} if it is bound, and invoke the |
Return @var{value} if it is bound, and invoke the |
460 |
@var{slot-unbound} method of @var{obj} if it is not. |
@var{slot-unbound} method of @var{obj} if it is not. |
461 |
@end deffn |
@end deffn |
462 |
|
|
463 |
@deffn primitive unbound? obj |
@deffn {Scheme Procedure} unbound? obj |
464 |
|
@deffnx {C Function} scm_unbound_p (obj) |
465 |
Return @code{#t} if @var{obj} is unbound. |
Return @code{#t} if @var{obj} is unbound. |
466 |
@end deffn |
@end deffn |
467 |
|
|
468 |
@deffn primitive make-unbound |
@deffn {Scheme Procedure} make-unbound |
469 |
|
@deffnx {C Function} scm_make_unbound () |
470 |
Return the unbound value. |
Return the unbound value. |
471 |
@end deffn |
@end deffn |
472 |
|
|
473 |
@deffn primitive accessor-method-slot-definition obj |
@deffn {Scheme Procedure} accessor-method-slot-definition obj |
474 |
|
@deffnx {C Function} scm_accessor_method_slot_definition (obj) |
475 |
Return the slot definition of the accessor @var{obj}. |
Return the slot definition of the accessor @var{obj}. |
476 |
@end deffn |
@end deffn |
477 |
|
|
478 |
@deffn primitive method-procedure obj |
@deffn {Scheme Procedure} method-procedure obj |
479 |
|
@deffnx {C Function} scm_method_procedure (obj) |
480 |
Return the procedure of the method @var{obj}. |
Return the procedure of the method @var{obj}. |
481 |
@end deffn |
@end deffn |
482 |
|
|
483 |
@deffn primitive method-specializers obj |
@deffn {Scheme Procedure} method-specializers obj |
484 |
|
@deffnx {C Function} scm_method_specializers (obj) |
485 |
Return specializers of the method @var{obj}. |
Return specializers of the method @var{obj}. |
486 |
@end deffn |
@end deffn |
487 |
|
|
488 |
@deffn primitive method-generic-function obj |
@deffn {Scheme Procedure} method-generic-function obj |
489 |
|
@deffnx {C Function} scm_method_generic_function (obj) |
490 |
Return the generic function for the method @var{obj}. |
Return the generic function for the method @var{obj}. |
491 |
@end deffn |
@end deffn |
492 |
|
|
493 |
@deffn primitive generic-function-methods obj |
@deffn {Scheme Procedure} generic-function-methods obj |
494 |
|
@deffnx {C Function} scm_generic_function_methods (obj) |
495 |
Return the methods of the generic function @var{obj}. |
Return the methods of the generic function @var{obj}. |
496 |
@end deffn |
@end deffn |
497 |
|
|
498 |
@deffn primitive generic-function-name obj |
@deffn {Scheme Procedure} generic-function-name obj |
499 |
|
@deffnx {C Function} scm_generic_function_name (obj) |
500 |
Return the name of the generic function @var{obj}. |
Return the name of the generic function @var{obj}. |
501 |
@end deffn |
@end deffn |
502 |
|
|
503 |
@deffn primitive class-environment obj |
@deffn {Scheme Procedure} class-environment obj |
504 |
|
@deffnx {C Function} scm_class_environment (obj) |
505 |
Return the environment of the class @var{obj}. |
Return the environment of the class @var{obj}. |
506 |
@end deffn |
@end deffn |
507 |
|
|
508 |
@deffn primitive class-slots obj |
@deffn {Scheme Procedure} class-slots obj |
509 |
|
@deffnx {C Function} scm_class_slots (obj) |
510 |
Return the slot list of the class @var{obj}. |
Return the slot list of the class @var{obj}. |
511 |
@end deffn |
@end deffn |
512 |
|
|
513 |
@deffn primitive class-precedence-list obj |
@deffn {Scheme Procedure} class-precedence-list obj |
514 |
|
@deffnx {C Function} scm_class_precedence_list (obj) |
515 |
Return the class precedence list of the class @var{obj}. |
Return the class precedence list of the class @var{obj}. |
516 |
@end deffn |
@end deffn |
517 |
|
|
518 |
@deffn primitive class-direct-methods obj |
@deffn {Scheme Procedure} class-direct-methods obj |
519 |
|
@deffnx {C Function} scm_class_direct_methods (obj) |
520 |
Return the direct methods of the class @var{obj} |
Return the direct methods of the class @var{obj} |
521 |
@end deffn |
@end deffn |
522 |
|
|
523 |
@deffn primitive class-direct-subclasses obj |
@deffn {Scheme Procedure} class-direct-subclasses obj |
524 |
|
@deffnx {C Function} scm_class_direct_subclasses (obj) |
525 |
Return the direct subclasses of the class @var{obj}. |
Return the direct subclasses of the class @var{obj}. |
526 |
@end deffn |
@end deffn |
527 |
|
|
528 |
@deffn primitive class-direct-slots obj |
@deffn {Scheme Procedure} class-direct-slots obj |
529 |
|
@deffnx {C Function} scm_class_direct_slots (obj) |
530 |
Return the direct slots of the class @var{obj}. |
Return the direct slots of the class @var{obj}. |
531 |
@end deffn |
@end deffn |
532 |
|
|
533 |
@deffn primitive class-direct-supers obj |
@deffn {Scheme Procedure} class-direct-supers obj |
534 |
Return the direct super-classes of the class @var{obj}. |
@deffnx {C Function} scm_class_direct_supers (obj) |
535 |
|
Return the direct superclasses of the class @var{obj}. |
536 |
@end deffn |
@end deffn |
537 |
|
|
538 |
@deffn primitive class-name obj |
@deffn {Scheme Procedure} class-name obj |
539 |
|
@deffnx {C Function} scm_class_name (obj) |
540 |
Return the class name of @var{obj}. |
Return the class name of @var{obj}. |
541 |
@end deffn |
@end deffn |
542 |
|
|
543 |
@deffn primitive instance? obj |
@deffn {Scheme Procedure} instance? obj |
544 |
|
@deffnx {C Function} scm_instance_p (obj) |
545 |
Return @code{#t} if @var{obj} is an instance. |
Return @code{#t} if @var{obj} is an instance. |
546 |
@end deffn |
@end deffn |
547 |
|
|
548 |
@deffn primitive %inherit-magic! class dsupers |
@deffn {Scheme Procedure} %inherit-magic! class dsupers |
549 |
|
@deffnx {C Function} scm_sys_inherit_magic_x (class, dsupers) |
550 |
|
|
551 |
@end deffn |
@end deffn |
552 |
|
|
553 |
@deffn primitive %prep-layout! class |
@deffn {Scheme Procedure} %prep-layout! class |
554 |
|
@deffnx {C Function} scm_sys_prep_layout_x (class) |
555 |
|
|
556 |
@end deffn |
@end deffn |
557 |
|
|
558 |
@deffn primitive %initialize-object obj initargs |
@deffn {Scheme Procedure} %initialize-object obj initargs |
559 |
|
@deffnx {C Function} scm_sys_initialize_object (obj, initargs) |
560 |
Initialize the object @var{obj} with the given arguments |
Initialize the object @var{obj} with the given arguments |
561 |
@var{initargs}. |
@var{initargs}. |
562 |
@end deffn |
@end deffn |
563 |
|
|
564 |
@deffn primitive make . args |
@deffn {Scheme Procedure} make . args |
565 |
|
@deffnx {C Function} scm_make (args) |
566 |
Make a new object. @var{args} must contain the class and |
Make a new object. @var{args} must contain the class and |
567 |
all necessary initialization information. |
all necessary initialization information. |
568 |
@end deffn |
@end deffn |
569 |
|
|
570 |
@deffn primitive slot-ref obj slot_name |
@deffn {Scheme Procedure} slot-ref obj slot_name |
571 |
|
@deffnx {C Function} scm_slot_ref (obj, slot_name) |
572 |
Return the value from @var{obj}'s slot with the name |
Return the value from @var{obj}'s slot with the name |
573 |
@var{slot_name}. |
@var{slot_name}. |
574 |
@end deffn |
@end deffn |
575 |
|
|
576 |
@deffn primitive builtin-bindings |
@deffn {Scheme Procedure} builtin-bindings |
577 |
Create and return a copy of the global symbol table, removing all |
Create and return a copy of the global symbol table, removing all |
578 |
unbound symbols. |
unbound symbols. |
579 |
@end deffn |
@end deffn |
580 |
|
|
581 |
@deffn primitive %tag-body body |
@deffn {Scheme Procedure} %tag-body body |
582 |
|
@deffnx {C Function} scm_sys_tag_body (body) |
583 |
Internal GOOPS magic---don't use this function! |
Internal GOOPS magic---don't use this function! |
584 |
@end deffn |
@end deffn |
585 |
|
|
586 |
@deffn primitive list* |
@deffn {Scheme Procedure} list* |
587 |
implemented by the C function "scm_cons_star" |
implemented by the C function "scm_cons_star" |
588 |
@end deffn |
@end deffn |
589 |
|
|
590 |
@deffn primitive set-current-module module |
@deffn {Scheme Procedure} set-current-module module |
591 |
|
@deffnx {C Function} scm_set_current_module (module) |
592 |
Set the current module to @var{module} and return |
Set the current module to @var{module} and return |
593 |
the previous current module. |
the previous current module. |
594 |
@end deffn |
@end deffn |
595 |
|
|
596 |
@deffn primitive current-module |
@deffn {Scheme Procedure} current-module |
597 |
|
@deffnx {C Function} scm_current_module () |
598 |
Return the current module. |
Return the current module. |
599 |
@end deffn |
@end deffn |
600 |
|
|
601 |
@deffn primitive c-clear-registered-modules |
@deffn {Scheme Procedure} c-clear-registered-modules |
602 |
|
@deffnx {C Function} scm_clear_registered_modules () |
603 |
Destroy the list of modules registered with the current Guile process. |
Destroy the list of modules registered with the current Guile process. |
604 |
The return value is unspecified. @strong{Warning:} this function does |
The return value is unspecified. @strong{Warning:} this function does |
605 |
not actually unlink or deallocate these modules, but only destroys the |
not actually unlink or deallocate these modules, but only destroys the |
607 |
only by module bookkeeping operations. |
only by module bookkeeping operations. |
608 |
@end deffn |
@end deffn |
609 |
|
|
610 |
@deffn primitive c-registered-modules |
@deffn {Scheme Procedure} c-registered-modules |
611 |
|
@deffnx {C Function} scm_registered_modules () |
612 |
Return a list of the object code modules that have been imported into |
Return a list of the object code modules that have been imported into |
613 |
the current Guile process. Each element of the list is a pair whose |
the current Guile process. Each element of the list is a pair whose |
614 |
car is the name of the module, and whose cdr is the function handle |
car is the name of the module, and whose cdr is the function handle |
616 |
has been passed to scm_register_module_xxx. |
has been passed to scm_register_module_xxx. |
617 |
@end deffn |
@end deffn |
618 |
|
|
619 |
@deffn primitive include-deprecated-features |
@deffn {Scheme Procedure} include-deprecated-features |
620 |
Return @code{#t} iff deprecated features should be included |
Return @code{#t} iff deprecated features should be included |
621 |
in public interfaces. |
in public interfaces. |
622 |
@end deffn |
@end deffn |
623 |
|
|
624 |
@deffn primitive issue-deprecation-warning . msgs |
@deffn {Scheme Procedure} issue-deprecation-warning . msgs |
625 |
Output @var{msgs} to @code{(current-error-port)} when this |
Output @var{msgs} to @code{(current-error-port)} when this |
626 |
is the first call to @code{issue-deprecation-warning} with |
is the first call to @code{issue-deprecation-warning} with |
627 |
this specific @var{msg}. Do nothing otherwise. |
this specific @var{msg}. Do nothing otherwise. |
629 |
they are printed in turn, each one followed by a newline. |
they are printed in turn, each one followed by a newline. |
630 |
@end deffn |
@end deffn |
631 |
|
|
632 |
@deffn primitive variable-set-name-hint! var hint |
@deffn {Scheme Procedure} variable-set-name-hint! var hint |
633 |
|
@deffnx {C Function} scm_variable_set_name_hint (var, hint) |
634 |
Do not use this function. |
Do not use this function. |
635 |
@end deffn |
@end deffn |
636 |
|
|
637 |
@deffn primitive valid-object-procedure? proc |
@deffn {Scheme Procedure} valid-object-procedure? proc |
638 |
|
@deffnx {C Function} scm_valid_object_procedure_p (proc) |
639 |
Return @code{#t} iff @var{proc} is a procedure that can be used with @code{set-object-procedure}. It is always valid to use a closure constructed by @code{lambda}. |
Return @code{#t} iff @var{proc} is a procedure that can be used with @code{set-object-procedure}. It is always valid to use a closure constructed by @code{lambda}. |
640 |
@end deffn |
@end deffn |
641 |
|
|
642 |
@deffn primitive %get-pre-modules-obarray |
@deffn {Scheme Procedure} %get-pre-modules-obarray |
643 |
|
@deffnx {C Function} scm_get_pre_modules_obarray () |
644 |
Return the obarray that is used for all new bindings before the module system is booted. The first call to @code{set-current-module} will boot the module system. |
Return the obarray that is used for all new bindings before the module system is booted. The first call to @code{set-current-module} will boot the module system. |
645 |
@end deffn |
@end deffn |
646 |
|
|
647 |
@deffn primitive standard-interface-eval-closure module |
@deffn {Scheme Procedure} standard-interface-eval-closure module |
648 |
|
@deffnx {C Function} scm_standard_interface_eval_closure (module) |
649 |
Return a interface eval closure for the module @var{module}. Such a closure does not allow new bindings to be added. |
Return a interface eval closure for the module @var{module}. Such a closure does not allow new bindings to be added. |
650 |
@end deffn |
@end deffn |
651 |
|
|
652 |
@deffn primitive env-module env |
@deffn {Scheme Procedure} env-module env |
653 |
|
@deffnx {C Function} scm_env_module (env) |
654 |
Return the module of @var{ENV}, a lexical environment. |
Return the module of @var{ENV}, a lexical environment. |
655 |
@end deffn |
@end deffn |
656 |
|
|
657 |
@deffn primitive load-extension lib init |
@deffn {Scheme Procedure} load-extension lib init |
658 |
|
@deffnx {C Function} scm_load_extension (lib, init) |
659 |
Load and initialize the extension designated by LIB and INIT. |
Load and initialize the extension designated by LIB and INIT. |
660 |
When there is no pre-registered function for LIB/INIT, this is |
When there is no pre-registered function for LIB/INIT, this is |
661 |
equivalent to |
equivalent to |
691 |
(load-extension "libguile-bla-blum" "bla_init_blum") |
(load-extension "libguile-bla-blum" "bla_init_blum") |
692 |
@end lisp |
@end lisp |
693 |
@end deffn |
@end deffn |
694 |
|
|
695 |
|
@deffn {Scheme Procedure} single-active-thread? |
696 |
|
implemented by the C function "scm_single_thread_p" |
697 |
|
@end deffn |
698 |
|
|
699 |
|
@deffn {Scheme Procedure} substring-move-right! |
700 |
|
implemented by the C function "scm_substring_move_x" |
701 |
|
@end deffn |
702 |
|
|
703 |
|
@deffn {Scheme Procedure} substring-move-left! |
704 |
|
implemented by the C function "scm_substring_move_x" |
705 |
|
@end deffn |