summaryrefslogtreecommitdiff
path: root/libguile/dynl-vms.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/dynl-vms.c')
-rw-r--r--libguile/dynl-vms.c6
1 files changed, 4 insertions, 2 deletions
diff --git a/libguile/dynl-vms.c b/libguile/dynl-vms.c
index a686cee9e..ca93c8211 100644
--- a/libguile/dynl-vms.c
+++ b/libguile/dynl-vms.c
@@ -45,6 +45,9 @@
Author: Aubrey Jaffer
(Not yet) modified for libguile by Marius Vollmer */
+/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999,
+ gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */
+
/* We should try to implement dynamic-link/dynamic-call for VMS,
too. */
@@ -74,8 +77,7 @@ struct dsc$descriptor *descriptorize(x, buff)
return(x);}
static char s_dynl[] = "vms:dynamic-link-call";
-SCM dynl(dir, symbol, fname)
- SCM dir, symbol, fname;
+SCM dynl(SCM dir, SCM symbol, SCM fname)
{
struct dsc$descriptor fnamed, symbold, dird;
void (*fcn)();