mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-05 06:50:21 +02:00
Code Activity

* scm_validate.h (SCM_NUM2LONG_DEF): Fix this macro to just use

Browse source 
def, not SCM_MAKINUM(def);  thanks Janis Bzerins!
This commit is contained in:
Greg J. Badros 2000-01-14 17:35:13 +00:00
parent 5159424f52
commit 72158b7406
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/scm_validate.h
View file

@ -1,4 +1,4 @@
/* $Id: scm_validate.h,v 1.17 2000-01-12 01:51:18 gjb Exp $ */ /* $Id: scm_validate.h,v 1.18 2000-01-14 17:35:13 gjb Exp $ */
/* Copyright (C) 1999 Free Software Foundation, Inc. /* Copyright (C) 1999 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
@ -73,7 +73,7 @@
#define SCM_NUM2LONG(pos,arg) (scm_num2long(arg, (char *) pos, FUNC_NAME)) #define SCM_NUM2LONG(pos,arg) (scm_num2long(arg, (char *) pos, FUNC_NAME))
#define SCM_NUM2LONG_DEF(pos,arg,def) (SCM_UNBNDP(arg)?SCM_MAKINUM(def):(scm_num2long(arg, (char *) pos, FUNC_NAME))) #define SCM_NUM2LONG_DEF(pos,arg,def) (SCM_UNBNDP(arg)?def:(scm_num2long(arg, (char *) pos, FUNC_NAME)))
#define SCM_NUM2LONG_LONG(pos,arg) (scm_num2long_long(arg, (char *) pos, FUNC_NAME)) #define SCM_NUM2LONG_LONG(pos,arg) (scm_num2long_long(arg, (char *) pos, FUNC_NAME))