diff options
Diffstat (limited to 'modules/language/python/parser.scm')
| -rw-r--r-- | modules/language/python/parser.scm | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/modules/language/python/parser.scm b/modules/language/python/parser.scm index 55c0d2d..55fc02e 100644 --- a/modules/language/python/parser.scm +++ b/modules/language/python/parser.scm @@ -590,12 +590,12 @@ (set! test (f-or! 'test - (f-list #:test - (Ds or_test) - (ff? (f-list - (f-seq "if" (Ds or_test)) - (f-seq "else" test)))) - (Ds lambdef))) + (f-list #:test + (Ds or_test) + (ff? (f-list + (f-seq "if" (Ds or_test)) + (f-seq "else" test)))) + (Ds lambdef))) (define test_nocond (f-or 'nocond (Ds or_test) (Ds lambdef_nocond))) @@ -709,9 +709,9 @@ mk-id)) (set! power - (p-freeze 'power - (f-cons 'power #:power - (f-cons (Ds atom) + (p-freeze 'power + (f-cons 'power #:power + (f-cons (f-or (f-list #:f (Ds identifier) ":" (Ds atom)) (Ds atom)) (f-cons (ff* (Ds trailer)) (f-or! (f-seq "**" factor) FALSE)))) @@ -721,7 +721,7 @@ (f-or! 'trailer (f-seq "(" (ff? (Ds arglist)) ")") (f-seq "[" (Ds subscriptlist) "]") - (f-seq "." identifier))) + (f-seq (f-list #:dot (ff+ "." identifier)))) (set! atom (p-freeze 'atom |