0. #lang racket
1.  
2. (require (for-syntax syntax/parse))
3.  
4. (define-syntax (def-par stx)
5.   (syntax-parse stx
6.     [(_ name) #'(define name (hash))] ; creating an empty hash map
7.     [(_ name [par val] ...)
8.      #''(define name (hash (symbol->string 'par ...) val ...))]))
9.  
10. (def-par p1)
11. p1 ; correct ==> '#hash()
12.  
13. (def-par p2 [a 1] [b 2])
14. ;p2 ; incorrect ==> '(define p2 (hash (symbol->string 'a 'b) 1 2))
15.     ; should be ==> '(define p2 (hash "a" 1 "b" 2))
16.  
17. ; But not much won yet; ideally there's no need to enter "" or [], like
18. #;(def-par sim-pars
19.            a 1
20.            b 2)

=>

'#hash()

'(define p2 (hash (symbol->string 'a 'b) 1 2))