mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-22 04:30:19 +02:00
Code Activity

rename make-undefined-fluid to make-unbound-fluid

Browse source 
* libguile/fluids.c (scm_make_unbound_fluid): Rename from
  scm_make_undefined_fluid.

* libguile/fluids.h:
* module/language/elisp/runtime.scm: Update referrers.
This commit is contained in:
Andy Wingo 2010-12-17 13:10:03 +01:00
parent 60905b80d4
commit e01163b5f1
3 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/fluids.c
View file

@ -181,10 +181,10 @@ SCM_DEFINE (scm_make_fluid, "make-fluid", 0, 0, 0,
} }
#undef FUNC_NAME #undef FUNC_NAME
SCM_DEFINE (scm_make_undefined_fluid, "make-undefined-fluid", 0, 0, 0, SCM_DEFINE (scm_make_unbound_fluid, "make-unbound-fluid", 0, 0, 0,
(), (),
"") "Make a fluid that is initially unbound.")
#define FUNC_NAME s_scm_make_undefined_fluid #define FUNC_NAME s_scm_make_unbound_fluid
{ {
SCM f = new_fluid (); SCM f = new_fluid ();
scm_fluid_set_x (f, SCM_UNDEFINED); scm_fluid_set_x (f, SCM_UNDEFINED);

2
libguile/fluids.h
View file

@ -60,7 +60,7 @@
#endif #endif
SCM_API SCM scm_make_fluid (void); SCM_API SCM scm_make_fluid (void);
SCM_API SCM scm_make_undefined_fluid (void); SCM_API SCM scm_make_unbound_fluid (void);
SCM_API int scm_is_fluid (SCM obj); SCM_API int scm_is_fluid (SCM obj);
SCM_API SCM scm_fluid_p (SCM fl); SCM_API SCM scm_fluid_p (SCM fl);
SCM_API SCM scm_fluid_ref (SCM fluid); SCM_API SCM scm_fluid_ref (SCM fluid);

2
module/language/elisp/runtime.scm
View file

@ -73,7 +73,7 @@
(let ((intf (resolve-interface module)) (let ((intf (resolve-interface module))
(resolved (resolve-module module))) (resolved (resolve-module module)))
(if (not (module-defined? intf sym)) (if (not (module-defined? intf sym))
(let ((fluid (make-undefined-fluid))) (let ((fluid (make-unbound-fluid)))
(module-define! resolved sym fluid) (module-define! resolved sym fluid)
(module-export! resolved `(,sym)))))) (module-export! resolved `(,sym))))))