1 ;;; const-aliases --- define alias for C defconsts to allow let-bind
3 ;; Copyright (C) 2015 Nelson Ferreira
5 ;; Author: Nelson Ferreira <nelson.ferreira@ieee.org>
6 ;; Maintainer: SXEmacs Development Team
9 ;; This file is part of SXEmacs.
11 ;; SXEmacs is free software: you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation, either version 3 of the License, or
14 ;; (at your option) any later version.
16 ;; SXEmacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
24 ;;; Synched up with: Not synched with FSF.
28 ;; The following code is required at startup to define all the
29 ;; necessary defconst alias for C DEFVAR_CONST that we wish to
30 ;; allow let-bind to succeed.
35 (when (featurep 'bigfr)
36 (defconst pi bigfr-pi "The value of Pi (3.1415926...)")
37 (defconst e euler "The value of e (2.7182818...)"))
39 (provide 'const-aliases)