(load (string-append laml-dir "laml.scm")) (lib-load "xml-in-laml/xml-in-laml.scm") (load (in-startup-directory "basic-soccer-style.scm")) (load (in-startup-directory "soccer-mirror.scm")) (define xml-check-error laml-error) ; display-xml-warning or laml-error (results 'group "A" (match (date "10-Jun-1998") (team 'score "1" "Scotland") (team 'score "2" "Brazil") ) (match (date "10-Jun-1998") (team 'score "2" "Marocco") (team 'score "2" "Norway") ) (match (date "16-Jun-1998") (team 'score "1" "Scotland") (team 'score "1" "Norway") ) (match (date "16-Jun-1998") (team 'score "3" "Brazil") (team 'score "0" "Marocco") ) (match (date "23-Jun-1998") (team 'score "1" "Brazil") (team 'score "2" "Norway") ) (match (date "23-Jun-1998") (team 'score "0" "Scotland") (team 'score "3" "Marocco") ) )