mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00
Code Activity

* _scm.h (min, max): Added.

Browse source 
* async.c: Moved `min' macro to _scm.h.
This commit is contained in:
Mikael Djurfeldt 1996-10-14 03:24:01 +00:00
parent 1cc91f1b29
commit 462a6f1f0c
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/_scm.h
View file

@ -46,6 +46,8 @@
#include "__scm.h"
/* This file is only visible to the libguile sources */
/* Include headers for those files central to the implementation. The
rest should be explicitly #included in the C files themselves. */
#include "error.h" /* Everyone signals errors. */
@ -148,5 +150,8 @@
%%% C_NAME = scm_permanent_object (scm_intern0 (SCHEME_NAME)); SCM_SETCDR (C_NAME, scm_long2num (VALUE))
#endif
#define min(A,B) ((A) <= (B) ? (A) : (B))
#define max(A,B) ((A) >= (B) ? (A) : (B))
#endif /* _SCMH */