Changeset 22026 in project


Ignore:
Timestamp:
12/16/10 22:16:03 (9 years ago)
Author:
Ivan Raikov
Message:

miniML: removing vestigial sxml->term procedure

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/miniML/trunk/miniML.scm

    r21521 r22026  
    823823         ))
    824824
    825 #|
    826 (define (sxml->modterm t)
    827   (let ((modid-template
    828          (sxml:match 'nml:modid
    829                      (lambda (node bindings root env)
    830                        (let ((p  (sxml:kidn* 'nml:path node)))
    831                          (Modid (sxml->path p))))))
    832         (component-template
    833          (sxml:match 'nml:component
    834                      (lambda (node bindings root env)
    835                        (let ((defs (map sxml->moddef (sxml:kidsn 'nml:def node))))
    836                          (Structure defs0)))))
    837         (functor-template
    838          (sxml:match 'nml:functor
    839                      (lambda (node bindings root env)
    840                        (let ((type  (sxml:kidn* 'nml:type node))
    841                              (body  (sxml:kidn* 'nml:body node))
    842                              (name  (sxml:attr node 'name)))
    843                          (if (not name) (error 'functor-template "functor declaration requires name attribute"))
    844                          
    845 |#
    846 
    847 
    848        
    849        
    850 
    851 
    852 
    853825)
    854826
Note: See TracChangeset for help on using the changeset viewer.