Commit 7645cba1 authored by rtoy's avatar rtoy
Browse files

Replace %false% and %true% in a different way and fix a typo.

parent 7217b928
......@@ -2050,14 +2050,9 @@
;; %true% with T so we can
;; initialize the logical array
;; correctly.
(list 'quote
(mapcar #'(lambda (x)
(ecase x
(%false% nil)
(%true% t)))
(cadr init)))))
(subst t '%true% (subst nil '%false% init))))
(let ((init (make_make-array_stmt (cdar decl) t
(fixup-logical (cadr init-val))
(fixup-logical init-val)
vble_name)))
`(,vble_name ,init)))
`(,vble_name nil)))))
......@@ -3455,8 +3450,11 @@
;;;-----------------------------------------------------------------------------
;;; end of f2cl5.l
;;;
;;; $Id: f2cl5.l,v 74c7d42bc805 2006/11/24 05:06:58 rtoy $
;;; $Id: f2cl5.l,v fab67062bc7e 2006/11/26 04:43:55 rtoy $
;;; $Log$
;;; Revision 1.150 2006/11/26 04:43:55 rtoy
;;; Replace %false% and %true% in a different way and fix a typo.
;;;
;;; Revision 1.149 2006/11/24 05:06:58 rtoy
;;; Logical arrays were not getting initialized from data statements.
;;;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment