Re: #1756: module system segfaulting at O3

[Chicken Trac]

#1756: module system  segfaulting at O3
---------------------------------------+-----------------------
            Reporter:  Idiomdrottning  |      Owner:  (none)
                Type:  defect          |     Status:  new
            Priority:  critical        |  Milestone:  someday
           Component:  unknown         |    Version:  5.2.0
          Resolution:                  |   Keywords:  matchable
Estimated difficulty:                  |
---------------------------------------+-----------------------

Comment (by megane):

 Smaller repro:
 {{{
 (let ()
   (define mdplus
     (lambda args
       (let ((args args))
         (if (pair? args)
             (let ((aa (car args))
                   (bb (cdr args)))
               (if (pair? bb)
                   3))))))
   (mdplus '1 '2)
   (mdplus '3 '4))

 ;; specializations:
 ;;   1 (scheme#cdr pair)
 ;;   2 (scheme#car pair)
 ;; safe calls: 9
 ;;
 ;; Error: segmentation violation
 ;;
 ;;         Call history:
 ;;
 ;;         issue-1756.scm:25: mdplus               <--

 }}}

 Maybe related:
 {{{
 (let ()
   (define mdplus
     (lambda args
       (let ((args args))
         (if (pair? args)
             (car args)))))
   (mdplus '1 '2)
   (mdplus '3 '4))

 ;; specializations:
 ;;   1 (scheme#car pair)
 ;; safe calls: 5
 ;;
 ;; Error: attempted rest argument access at index 0 but rest list length
 is 0: #<procedure>
 }}}

-- 
Ticket URL: <https://bugs.call-cc.org/ticket/1756#comment:1>
CHICKEN Scheme <https://www.call-cc.org/>
CHICKEN Scheme is a compiler for the Scheme programming language.