Mercurial > hg > xemacs-beta

comparison src/floatfns.c @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 41dbb7a9d5f2
children
comparison
equal deleted inserted replaced
423:28d9c139be4c 424:11054d720c21
106 #define IN_FLOAT2(d, name, num, num2) (in_float = 2, (d), in_float = 0) 106 #define IN_FLOAT2(d, name, num, num2) (in_float = 2, (d), in_float = 0)
107 #endif 107 #endif
108 108
109 109
110 #define arith_error(op,arg) \ 110 #define arith_error(op,arg) \
111 Fsignal (Qarith_error, list2 (build_string ((op)), (arg))) 111 Fsignal (Qarith_error, list2 (build_string (op), arg))
112 #define range_error(op,arg) \ 112 #define range_error(op,arg) \
113 Fsignal (Qrange_error, list2 (build_string ((op)), (arg))) 113 Fsignal (Qrange_error, list2 (build_string (op), arg))
114 #define range_error2(op,a1,a2) \ 114 #define range_error2(op,a1,a2) \
115 Fsignal (Qrange_error, list3 (build_string ((op)), (a1), (a2))) 115 Fsignal (Qrange_error, list3 (build_string (op), a1, a2))
116 #define domain_error(op,arg) \ 116 #define domain_error(op,arg) \
117 Fsignal (Qdomain_error, list2 (build_string ((op)), (arg))) 117 Fsignal (Qdomain_error, list2 (build_string (op), arg))
118 #define domain_error2(op,a1,a2) \ 118 #define domain_error2(op,a1,a2) \
119 Fsignal (Qdomain_error, list3 (build_string ((op)), (a1), (a2))) 119 Fsignal (Qdomain_error, list3 (build_string (op), a1, a2))
120 120
121 121
122 /* Convert float to Lisp Integer if it fits, else signal a range 122 /* Convert float to Lisp Integer if it fits, else signal a range
123 error using the given arguments. */ 123 error using the given arguments. */
124 static Lisp_Object 124 static Lisp_Object
158 } 158 }
159 } 159 }
160 160
161 161
162 static Lisp_Object 162 static Lisp_Object
163 mark_float (Lisp_Object obj, void (*markobj) (Lisp_Object)) 163 mark_float (Lisp_Object obj)
164 { 164 {
165 return Qnil; 165 return Qnil;
166 } 166 }
167 167
168 static int 168 static int