Changeset 16628


Ignore:
Timestamp:
Oct 26, 2015, 9:12:27 PM (5 years ago)
Author:
rme
Message:

Correct typo.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx0.lisp

    r16565 r16628  
    329329(defun nx-float-safety (env)
    330330  (or (eql (safety-optimize-quantity env) 3)
    331       (let* ((hook (getf (policy.misc *nx-current-compiler-policy*) :detect-floating-point-excption)))
     331      (let* ((hook (getf (policy.misc *nx-current-compiler-policy*)
     332                         :detect-floating-point-exception)))
    332333        (when hook
    333334          (if (functionp hook)
     
    335336            t)))))
    336337
    337 
    338 
    339 #-bccl
    340338(defun nx1-default-operator ()
    341339 (or (gethash *nx-sfname* *nx1-operators*)
Note: See TracChangeset for help on using the changeset viewer.