0. #lang racket
1.  
2. (define-struct ir[name description aprice sprice])
3.  
4. (define(eliminate-expensive ua loir)
5.   (local
6.    (define(is-bigger rekord)
7.      (if(> (ir-sprice rekord)ua)#t #f)))
8.   (filter loir is-bigger))
9.  
10. (define proba`(,(make-ir "dlugopis" "do pisania" 12 17)
11.                 ,(make-ir "penzel" "do pisania" 12 38)
12.                 ,(make-ir "dlugopis" "do pisania" 12 58)
13.                 ,(make-ir "dlugopis" "do pisania" 12 99)))
14.  
15. (eliminate-expensive 50 proba)

=>

eval:3:0: local: bad syntax

in: (local (define (is-bigger rekord) (if (> (ir-sprice

rekord) ua) #t #f)))

eliminate-expensive: undefined;

cannot reference an identifier before its definition

in module: 'm