summaryrefslogtreecommitdiff
path: root/libguile/hooks.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-05-08 10:23:17 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-05-08 10:23:17 +0000
commit56e55ac7cfcfefc033ac6da130bafe745e9e109f (patch)
tree60635193bcbac3dcd1e25c76545b36a57d134e3b /libguile/hooks.c
parent7cfbc4f7b0b709ffe5c45b36cfa55cbff9731ecb (diff)
downloadguile-56e55ac7cfcfefc033ac6da130bafe745e9e109f.tar.gz
* Removed deprecated hook names.
* Fix use of SCM_FLOBUFLEN.
Diffstat (limited to 'libguile/hooks.c')
-rw-r--r--libguile/hooks.c26
1 files changed, 2 insertions, 24 deletions
diff --git a/libguile/hooks.c b/libguile/hooks.c
index 3ad60ce85..88fa69d75 100644
--- a/libguile/hooks.c
+++ b/libguile/hooks.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995, 1996, 1998, 1999, 2000 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1998,1999,2000,2001 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -49,7 +49,6 @@
#include "libguile/eval.h"
#include "libguile/ports.h"
-#include "libguile/objprop.h"
#include "libguile/procprop.h"
#include "libguile/root.h"
#include "libguile/smob.h"
@@ -184,7 +183,7 @@ hook_print (SCM hook, SCM port, scm_print_state *pstate)
{
scm_putc (' ', port);
name = scm_procedure_name (SCM_CAR (ls));
- if (SCM_NFALSEP (name))
+ if (!SCM_FALSEP (name))
scm_iprin1 (name, port, pstate);
else
scm_putc ('?', port);
@@ -195,37 +194,16 @@ hook_print (SCM hook, SCM port, scm_print_state *pstate)
}
-SCM_SYMBOL (symbol_name, "name");
-
SCM
scm_create_hook (const char* name, int n_args)
{
SCM hook = make_hook (SCM_MAKINUM (n_args), "scm_create_hook");
scm_sysintern (name, hook);
- scm_set_object_property_x (hook, symbol_name, scm_makfrom0str (name));
scm_protect_object (hook);
return hook;
}
-#if (SCM_DEBUG_DEPRECATED == 0)
-
-SCM_DEFINE (scm_make_hook_with_name, "make-hook-with-name", 1, 1, 0,
- (SCM name, SCM n_args),
- "Create a named hook with the name @var{name} for storing\n"
- "procedures of arity @var{n_args}. @var{n_args} defaults to\n"
- "zero.")
-#define FUNC_NAME s_scm_make_hook_with_name
-{
- SCM hook = make_hook (n_args, FUNC_NAME);
- scm_set_object_property_x (hook, scm_makfrom0str ("name"), name);
- return hook;
-}
-#undef FUNC_NAME
-
-#endif /* SCM_DEBUG_DEPRECATED == 0 */
-
-
SCM_DEFINE (scm_make_hook, "make-hook", 0, 1, 0,
(SCM n_args),
"Create a hook for storing procedure of arity\n"