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

remove SICP from __scm.h

Browse source 
* libguile/__scm.h: Remove #undef SICP.
* libguile/feature.c (scm_init_feature): Never add the sicp feature.
This commit is contained in:
Andy Wingo 2011-05-15 10:54:00 +02:00
parent 412ccea6c9
commit 2572c80673
2 changed files with 1 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/__scm.h
View file

@ -153,17 +153,6 @@
/* #define GUILE_DEBUG_FREELIST */ /* #define GUILE_DEBUG_FREELIST */
/* {Unsupported Options}
*
* These must be defined as given here.
*/
/* Guile Scheme supports the #f/() distinction; Guile Lisp won't. We
have horrible plans for their unification. */
#undef SICP
/* Random options (not yet supported or in final form). */ /* Random options (not yet supported or in final form). */

5
libguile/feature.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002, 2003, 2004, 2006, 2007, 2009 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1998,1999,2000,2001,2002, 2003, 2004, 2006, 2007, 2009, 2011 Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License * modify it under the terms of the GNU Lesser General Public License
@ -108,9 +108,6 @@ scm_init_feature()
#ifdef vms #ifdef vms
scm_add_feature(s_ed); scm_add_feature(s_ed);
#endif #endif
#ifdef SICP
scm_add_feature("sicp");
#endif
#ifndef GO32 #ifndef GO32
scm_add_feature("char-ready?"); scm_add_feature("char-ready?");
#endif #endif