summaryrefslogtreecommitdiff
path: root/libguile/stacks.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1997-08-14 15:00:03 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1997-08-14 15:00:03 +0000
commit0824b52425e03fe1b3c0b6e6b29b127b39ad37ef (patch)
treea4c8c5a4123fdf48ec35a5ed97d13f5cc316ae92 /libguile/stacks.c
parentadc02cce188dbc20400197af7ee6f7ceac2e108e (diff)
downloadguile-0824b52425e03fe1b3c0b6e6b29b127b39ad37ef.tar.gz
* stacks.c (scm_make_stack), coop-threads.c, mit-pthreads.c
(scm_call_with_new_thread): Bugfix: SCM_WNA should go as third argument to SCM_ASSERT. Furthermore, the name of the function should be passed as first argument when signalling SCM_WNA. (Thanks to Thomas Morgan)
Diffstat (limited to 'libguile/stacks.c')
-rw-r--r--libguile/stacks.c5
1 files changed, 4 insertions, 1 deletions
diff --git a/libguile/stacks.c b/libguile/stacks.c
index 6be4ffca1..0e6598351 100644
--- a/libguile/stacks.c
+++ b/libguile/stacks.c
@@ -351,7 +351,10 @@ scm_make_stack (args)
SCM stack, id;
SCM obj, inner_cut, outer_cut;
- SCM_ASSERT (SCM_NIMP (args) && SCM_CONSP (args), SCM_WNA, args, s_make_stack);
+ SCM_ASSERT (SCM_NIMP (args) && SCM_CONSP (args),
+ scm_makfrom0str (s_make_stack),
+ SCM_WNA,
+ NULL);
obj = SCM_CAR (args);
args = SCM_CDR (args);