diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 1999-12-12 20:35:02 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 1999-12-12 20:35:02 +0000 |
commit | 6e8d25a6954b00e1ff40976d95c8289cfa9fcca4 (patch) | |
tree | 524a6cdf3bb04e0ed9cb97b5d66777972e336c07 /libguile/dynl-vms.c | |
parent | 1006486ec27336ea25ece6e5d97a2dbefbfe79e3 (diff) | |
download | guile-6e8d25a6954b00e1ff40976d95c8289cfa9fcca4.tar.gz |
* *.c: Finish replacing K&R style prototypes with ANSI C
prototypes.
* eval.c: Make scm_m_mody's 3rd argument be a const char *, not a
char *. ANSI prototypes caught this.
* strorder.c: Use GUILE_PROC1 for the couple SCM_PROC1 expansions
that I missed.
* scm_validate.h: Use SCM_BOOLP for validating bools. Do not
expand macros if SCM_DOCSTRING_SNARF.
Diffstat (limited to 'libguile/dynl-vms.c')
-rw-r--r-- | libguile/dynl-vms.c | 6 |
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)(); |