;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
(defalias 'calc-begin-complex #[0 "\300\301!\207" [calc-do #[0 "\204	\203\f\303\304!\207\305\306\nD!\207" [calc-algebraic-mode calc-incomplete-algebraic-mode calc-complex-mode calc-alg-entry "(" calc-push incomplete] 3]] 2 nil nil])
(defalias 'calc-end-complex #[0 "\300\301!\210\302\303!\207" [calc-comma t calc-do #[0 "\300\301!\211\242\302=\2033\211A@\303=\2033\211G\304W\203\305
\306\"\262
\211G\307W\203,\305
\310\"\262
\311\301\312A#\207\211\242\302=\203B\211A@\313>\204F\314\315!\210\211G\304W\203V\305
\316\"\262
\202F\317
8\211:?\206c\211@\320>\262
\203z\321
8\211:?\206u\211@\322>\262
\204~\314\323!\210\311\301\324A#\207" [calc-top 1 incomplete intv 4 append ((neg (var inf var-inf))) 5 ((var inf var-inf)) calc-enter-result "..)" (cplx polar) error "Not entering a complex number" (0) 2 (frac float) 3 (frac float hms) "Components must be real" "()"] 5]] 2 nil nil])
(defalias 'calc-begin-vector #[0 "\300\301!\207" [calc-do #[0 "\204	\203\f\302\303!\207\304\305!\207" [calc-algebraic-mode calc-incomplete-algebraic-mode calc-alg-entry "[" calc-push (incomplete vec)] 2]] 2 nil nil])
(defalias 'calc-end-vector #[0 "\300\301!\210\302\303!\207" [calc-comma t calc-do #[0 "\300\301!\211\242\302=\203<\211A@\303=\203<\211G\304W\203\305
\306\"\262
\211G\307W\203,\305
\310\"\262
\211AA\3118T\240\210\312\301\313A#\207\211\242\302=\203K\211A@\314=\204O\315\316!\210\317\301\320A#\207" [calc-top 1 incomplete intv 4 append ((neg (var inf var-inf))) 5 ((var inf var-inf)) 2 calc-enter-result "..]" vec error "Not entering a vector" calc-pop-push-record "[]"] 5]] 2 nil nil])
#@30 

(fn &optional ALLOW-POLAR)
(defalias 'calc-comma #[256 "\300\301\302\"!\207" [calc-do make-closure #[0 "\303	\n\233\304\"\211\305U\203\306\307!\210\310
!\311S!\312\"
\204G\300\204GA@\313=\2042\211G\314W\203G\312
\211G\315U\203?\316\202DGS\233\"\262
\300\204o\211A@\317=\203^\312\320AA\"\262
\202o\211A@\321=\203o\312\322AAA\"\262
\211A@\323>\203\202\211G\314V\203\202\306\324!\210\211A@\321=\203\225\211G\325V\203\225\306\326!\210\327\"\207" [V0 calc-stack-top calc-stack calc-find-first-incomplete 1 0 error "Not entering a vector or complex number" calc-top calc-top-list append vec 4 2 (0) polar (incomplete cplx) intv (incomplete cplx) (cplx polar) "Too many components in complex number" 5 "Too many components in interval form" calc-pop-push] 8]] 5 (#$ . 1769) nil])
(defalias 'calc-semi #[0 "\300\301!\207" [calc-do #[0 "\304	\233\305\"\211\306U\203\307\310!\210\311
!\312S!
A@\313=\203*\314\315AA\"\262\202;
A@\316=\203;\314\317AAA\"\262
A@\320=\203g\314\"\211G\321V\203U\307\322!\210\202b\211G\323U\203b\314
\324\"\262
\325\"\207\211\204\216
G\323V\205\352\3238\211\242\326=\262
\203\201\327 \207\325\305\330\326AAE\330\326D#\207\211@\211\242\326=\262
\203\234\327 \207\\	8\242\242\330=\203\266\331 \210\327 \210\332\211\333 *\207
G\323U\204\311\3238\211\242\326=\262
\203\327\325\314\326BC\"\330\326D#\207\325\330\326\211\314AA\"BE\330\326D#\207" [calc-stack-top calc-stack calc-incomplete-algebraic-mode calc-algebraic-mode calc-find-first-incomplete 1 0 error "Not entering a vector or complex number" calc-top calc-top-list cplx append (incomplete polar) intv (incomplete polar) polar 4 "Too many components in complex number" 2 (1) calc-pop-push vec calc-comma incomplete calc-end-vector nil calc-begin-vector] 11]] 2 nil nil])
(defalias 'calc-digit-dots #[0 "\305=\203*\306\307!\210\310\311!\203\306\307!\210\312\313\n\203\314 \207\315\316\317 \210)\320 \207\306\307!\207" [calc-prev-char last-command-event calc-prev-prev-char calc-digit-value inhibit-read-only 46 delete-char -1 calc-minibuffer-contains ".*\\.\\'" dots 32 calcDigit-nondigit nil t erase-buffer exit-minibuffer] 2])
(defalias 'calc-dots #[0 "\300\301!\207" [calc-do #[0 "\302	\233\303\"\211\304U\203\305\306!\210\307
!\310S!\311\"\211A@\312=\2048\311\313A@\314=\2031\315\2022\316AA#\262

\204I\211G\317U\203I\311
\320\"\262
\211G\321V\203T\305\322!\210\323\"\207" [calc-stack-top calc-stack calc-find-first-incomplete 1 0 error "Not entering an interval form" calc-top calc-top-list append intv (incomplete intv) vec (2) (0) 3 ((neg (var inf var-inf))) 5 "Too many components in interval form" calc-pop-push] 8]] 2 nil nil])
#@16 

(fn STACK N)
(defalias 'calc-find-first-incomplete #[514 "
\204\300\207
@\242\242\301=\203\207\302AT\"\207" [0 incomplete calc-find-first-incomplete] 5 (#$ . 4479)])
#@10 

(fn A)
(defalias 'calc-incomplete-error #[257 "\211A@\300>\203\f\301\302!\207\211A@\303=\203\301\304!\207\211A@\305=\203$\301\306!\207\301\307!\207" [(cplx polar) error "Complex number is incomplete" vec "Vector is incomplete" intv "Interval form is incomplete" "Object is incomplete"] 3 (#$ . 4659)])
(provide 'calc-incom)